(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    122747,       2850]
NotebookOptionsPosition[     94373,       2356]
NotebookOutlinePosition[    101875,       2519]
CellTagsIndexPosition[    101795,       2514]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["", "SlideShowNavigationBar", "FirstSlide",
 CellMargins->{{0, 0}, {-1, 0}},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"ae861ed8-5fa1-4088-84fd-2651cc7b368a"],

Cell["R-link \:4e0e\:751f\:7269\:533b\:5b66\:4fe1\:606f\:5904\:7406", "Title",
 CellChangeTimes->{{3.8066526295472*^9, 3.806652632649303*^9}, {
   3.806652744825768*^9, 3.8066527524433527`*^9}, {3.8066528038011417`*^9, 
   3.806652808321179*^9}, 
   3.806821937307292*^9},ExpressionUUID->"8b1642a0-c2f2-4832-b962-\
da68c26a4047"],

Cell["\<\
\:8346\:6cfd\:5b87 , \:4e0a\:6d77\:4ea4\:901a\:5927\:5b66\:533b\:5b66\:9662\
\>", "Subtitle",
 CellChangeTimes->{{3.806652822539234*^9, 3.8066528766681347`*^9}, {
  3.806810859312614*^9, 
  3.8068108788336563`*^9}},ExpressionUUID->"75c0d664-a0db-4889-a1b0-\
650f7c83e5d8"],

Cell[TextData[{
 "\n",
 Cell[BoxData[
  RowBox[{
   AdjustmentBox[
    TemplateBox[{
      GraphicsBox[{{
         GrayLevel[1], 
         FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
          0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 0}, {1, 3, 
          3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
          0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJBKJ3BkN/I8lTVIVMpp6LqqLrDC/lL+fHsH+1h/Alx
mqcFjj+A8xm+lT6YI7jVPreiaqnOYzU4P/KU0ZGN51Th/BvaqZKPIj7Yw/gP
3syz0blyzx5mHsO9rS01Fxbbw+yD8WHugfFr1m1Lqv+pBue/PmCp7HVb3QFm
HowPsw/Gh7kHxoe5F2YezD/o/kflqznYVkasMM1Vg/Mh5qk56DnLvH4UhuCj
2qeG5h41hwKQvN4Le5h5D2K9T7DbPoT7F8aHhQeMX6D9bfrdyS/h/AP7+OYY
L3pkDzMPxofZB+PD3APjw9wLMw/mH9T4VsPwPwBKz/oj
          "]]}, {
         Thickness[0.08333333333333333], 
         FaceForm[{
           RGBColor[1., 1., 1.], 
           Opacity[1.]}], 
         FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
          3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
          3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
          3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
          0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIvIGYC4uZAz7kNz5Qcpv+fUPf7l4LDaaMjG/XWKTsI
idgfu1Oq6HCVM0Mpx0LF4RRIXE/JYdE1k/cWrSoOC0E0qzJc/baWmgubZyo5
wMx7uX0983MfJYd1N+LL/OWU4Pph5jZB1a1ZC1TQr+CQt5hxD2uQsoP+f8W/
377KwfkqGnU9O1/LwPkR0Rv3v5GThpjzVcnhhezyFx7rJB2ivu681WWr5FD+
YI7gUlsJiPtaFR32HRRXC24Vd7AuONdxaZ4CnJ/D+XNBurE8nH8pP5793Ew5
h7tuzBXcS8QdwsH2yDn8Of3u5OFD4g53wOKyUHlBh99gcVmHjKvPs7S/cTj4
y4ll+RorONQ16/ss42J0cHUv+sm/UslBosfrFYvJf3uwP/mVHFb4OQgnHv5r
Dw6nNEU4HxxeZxTgfD1oOOzqZfsg5sEIDwceN9VSplmsDlNSO5JjY6Sh9jM5
bH5VvFW0WtrBoTJihelZBgf+KrPVdtel4eZ19T35JB8kA+fvBftbyqEt6vKe
xyIMDhD7JBw2bEuqv2nLBA+XG0KfHM+nsUDDSwzqHnao/aIOErInn9ov4XKw
uHY014RB1OHRy6mbeAo5HaQCb0nXPBSBmscBDS8RqPvY4HyYf2B8MbB5LHD+
LA7peXGaLHDzJhmW6yrKszqsFL7gcqNAGG4eJL6EHJbd38c3x5jToWG7Q9Mj
d0EHj4A/EsXXuR0g/hdw0DktcHzXDj4HuS85YbXr+B1UweEq4LCm+3YGQz6/
A1N+I8vRfh6HM9Z+FyfGcEP5bA5LoObC4hPG3/On/cvt67/h/Ihpin2lhT/h
/CcR4tsvMvywh5jPCbWfySFIfUHnhocsDrfA4cvloAUVX2Cjc2VWmiCcfxmc
LkXh/FVgf0vC9T8Hp38ZuPvA+ZNVweHb9LuT21t5ofkXlg8EHWRfPzKTYlCC
pmcRh+tA5a7HlaDhLe5wIFrB8aOyMjQ+peF8SHzLwfmQ8JR34LCdHTr/tTI8
/cPKh4qqpTrOdxSg9qk6GM7Ukpg6RdHhS19wiUq4ikPKmVjvE+6KkPJhHrT8
kFR0QC+PAPZc+cE=
          "]]}}, {
       ImageSize -> 0.027 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}], 
      TemplateBox[{6}, "Spacer1"], 
      GraphicsBox[{{
         GrayLevel[1], 
         FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
          0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 0}, {1, 3, 
          3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
          0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJBKJ3BkN/I8lTVIVMpp6LqqLrDC/lL+fHsH+1h/Alx
mqcFjj+A8xm+lT6YI7jVPreiaqnOYzU4P/KU0ZGN51Th/BvaqZKPIj7Yw/gP
3syz0blyzx5mHsO9rS01Fxbbw+yD8WHugfFr1m1Lqv+pBue/PmCp7HVb3QFm
HowPsw/Gh7kHxoe5F2YezD/o/kflqznYVkasMM1Vg/Mh5qk56DnLvH4UhuCj
2qeG5h41hwKQvN4Le5h5D2K9T7DbPoT7F8aHhQeMX6D9bfrdyS/h/AP7+OYY
L3pkDzMPxofZB+PD3APjw9wLMw/mH9T4VsPwPwBKz/oj
          "]]}, {
         Thickness[0.08333333333333333], 
         FaceForm[{
           RGBColor[1., 1., 1.], 
           Opacity[1.]}], 
         FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
          0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
          3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
          3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJxIGYC4ksM95g4uaQc9P8r/v32VdohkyG/kYVVAQdf
1AFVPYLfFnV5z2MRBihfBIMPU7+EcQ+rkAgPDr40mnoEf8ur4q2i1XJwfq/G
W959BQoOXfLJ76IOQfkfFB1+x+Qe/Wck5pByJtb7xHElqLy4w5q1N+LL+pUd
wt/o71bvl3SY8X9C3e9fyg7zz646f/WaNJwP8y92vgKaepj9UnA+LDysC851
XJqH4BvO1JKYKqLgAAA6xp7+
          "]]}}, {
       ImageSize -> 0.027 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}], 
      TemplateBox[{6}, "Spacer1"], 
      GraphicsBox[{
        Thickness[0.08333333333333333], 
        FaceForm[{
          RGBColor[1., 1., 1.], 
          Opacity[1.]}], 
        FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 
          0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
          0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
          3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{4.02, 8.7598}, {4.02, 
          8.3398}, {3.6899999999999995`, 8.0098}, {3.2399999999999998`, 
          8.0098}, {2.7899999999999996`, 8.0098}, {2.4899999999999993`, 
          8.3398}, {2.4899999999999993`, 8.7598}, {2.4899999999999993`, 
          9.1798}, {2.8199999999999994`, 9.5098}, {3.2399999999999998`, 
          9.5098}, {3.6599999999999997`, 9.5098}, {4.02, 9.1498}, {4.02, 
          8.7598}}, CompressedData["
1:eJxTTMoPSmViYGCQAGIQ3fo6cIccq7JD1VIdZ5nXzA4QvgIGP2dW+ZxFi0Xg
fF/RHq9XLeIO3zRi+g99lXOYf3bV+avXJBy4ri8usOWShfOrRNa5P6yShvNb
QPpbpRyerVN90iwHUy/lEP5Gf7d6vxicD7MfwhfB4J/QtJp0+r+sA9AwoIkS
cD7YOhFJh0sM95g4geYYgwGCnwYGUg77gqYp9n2VdgAaBjRRxkFvwoIfhmkw
/fJwPtBzQB8qwPkQ/YoOU76xxc84IwOR51dyUNn5p/1LtLQDODhWKDlsrv60
IeC1pAMsfCHuE4fz2UwEzWxsRR0AMJ+b7g==
          "], {{3.9899999999999998`, 
          2.4898}, {2.4899999999999993`, 2.4898}, {2.4899999999999993`, 
          7.4998}, {3.9899999999999998`, 7.4998}}}], 
        FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
         0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{1, 4, 3}, {0, 1, 0}, {1, 3, 
         3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
         0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJBKJ3BkN/I8lTVIVMpp6LqqLrDC/lL+fHsH+1h/Alx
mqcFjj+A8xm+lT6YI7jVPreiaqnOYzU4P/KU0ZGN51Th/BvaqZKPIj7Yw/gP
3syz0blyzx5mHsO9rS01Fxbbw+yD8WHugfFr1m1Lqv+pBue/PmCp7HVb3QFm
HowPsw/Gh7kHxoe5F2YezD/o/kflqznYVkasMM1Vg/Mh5qk56DnLvH4UhuCj
2qeG5h41hwKQvN4Le5h5D2K9T7DbPoT7F8aHhQeMX6D9bfrdyS/h/AP7+OYY
L3pkDzMPxofZB+PD3APjw9wLMw/mH9T4VsPwPwBKz/oj
         "]]}, {
       AspectRatio -> Automatic, ImageSize -> 
        0.027 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 
        PlotRange -> {{0., 12.}, {0., 12.}}}]},
     "RowDefault"],
    BoxBaselineShift->-0.3416543244041976,
    BoxMargins->{{0., 0.}, {0.3416543244041976, -0.3416543244041976}}], 
   " "}]],ExpressionUUID->"376f2a73-bc68-4fdb-b608-b3b1705e8eb8"],
 " #WolframTechConf"
}], "Subtitle",
 CellMargins->{{0, 0}, {20, -21}},
 CellChangeTimes->{3.78802031357596*^9},
 FontSize->0.025 
  FrontEnd`AbsoluteCurrentValue[{
    WindowSize, 1}],ExpressionUUID->"82304148-2048-4796-ab46-715a0d811c28"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"ee3ea2a1-973b-4e9a-a704-0d8a3c30d1be"],

Cell[CellGroupData[{

Cell["\:76ee\:5f55", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.7257199329223537`*^9, 3.725720005948655*^9}, {
   3.72572008110417*^9, 3.725720088583918*^9}, {3.735906066467186*^9, 
   3.7359060766280823`*^9}, 3.7880100304206944`*^9, {3.788018566457625*^9, 
   3.788018567874702*^9}, {3.7880186005884113`*^9, 3.788018634852206*^9}, {
   3.8068109384312897`*^9, 
   3.8068109412638283`*^9}},ExpressionUUID->"75e785bd-e551-42c4-b918-\
1ff722dfcee0"],

Cell[CellGroupData[{

Cell["\:4e3a\:4ec0\:4e48\:8981\:4ecb\:7ecdR-Link\:ff1f", "Item",
 CellChangeTimes->{{3.806653322303093*^9, 3.806653332089888*^9}, {
   3.8068110950509567`*^9, 3.806811113633906*^9}, 3.806811336072076*^9, {
   3.806877676343124*^9, 
   3.806877676344063*^9}},ExpressionUUID->"cb57478d-a8fc-45da-9439-\
0b25b485f28a"],

Cell["\:4e3e\:4e2a\|01f330", "Item",
 CellChangeTimes->{{3.806653322303093*^9, 3.806653332089888*^9}, {
   3.8068110950509567`*^9, 3.806811113633906*^9}, 3.806811336072076*^9, {
   3.806877678260972*^9, 
   3.8068776802157927`*^9}},ExpressionUUID->"b799cc88-1477-48d1-8e19-\
a4ae4130f766"],

Cell["R-Link\:600e\:4e48\:5b89\:88c5\:ff1f", "Item",
 CellChangeTimes->{{3.806653322303093*^9, 3.806653339576186*^9}, {
  3.8068111160106583`*^9, 3.806811136206723*^9}, {3.8068174771623287`*^9, 
  3.806817477162436*^9}},ExpressionUUID->"6c27b510-d85e-4e74-9221-\
263276471e2c"],

Cell["\:5bf9\:4e8emac os \:7528\:6237\:6765\:8bf4\:ff0cR\:5305\:600e\:4e48\
\:5b89\:88c5\:ff1f\:ff08*\:ff09", "Item",
 CellChangeTimes->{{3.806653322303093*^9, 3.806653339576186*^9}, {
  3.8068111160106583`*^9, 3.806811136206723*^9}, {3.806817478503058*^9, 
  3.806817508547744*^9}},ExpressionUUID->"468b77d3-c892-4999-bd6e-\
efd2bfeafff5"],

Cell["R-Link\:600e\:4e48\:7528\:ff1f", "Item",
 CellChangeTimes->{{3.806653322303093*^9, 3.806653339192911*^9}, {
  3.806653396840764*^9, 3.806653443742309*^9}, {3.806810810775303*^9, 
  3.806810810775672*^9}, {3.806811167562448*^9, 
  3.806811169485744*^9}},ExpressionUUID->"1f8d2c12-fed1-4207-920c-\
4b7b3bc5dc97"],

Cell["\:5982\:4f55\:66f4\:9ad8\:6548\:7684\:4f7f\:7528RLink\:ff1f", "Item",
 CellChangeTimes->{{3.806653322303093*^9, 3.806653339192911*^9}, {
  3.806653396840764*^9, 3.806653443742309*^9}, {3.8068108175909*^9, 
  3.806810826320978*^9}, {3.806810915588745*^9, 3.806810915628047*^9}, {
  3.80681117361519*^9, 
  3.806811200486549*^9}},ExpressionUUID->"da07f454-70f3-42dc-b2cc-\
e7f82d776dd7"],

Cell[TextData[{
 "\:603b\:7ed3 ",
 StyleBox["+ ",
  FontSize->24],
 StyleBox["\:56de\:987e\|01f330 ",
  FontSize->18]
}], "Item",
 CellChangeTimes->{{3.806653322303093*^9, 3.806653339192911*^9}, {
   3.806653396840764*^9, 3.806653443742309*^9}, {3.8068108175909*^9, 
   3.806810826320978*^9}, 3.8068109302375917`*^9, {3.806811202195511*^9, 
   3.80681121627637*^9}, 3.8068112931715117`*^9, {3.80682062045881*^9, 
   3.806820620459264*^9}, {3.8068449051220007`*^9, 3.806844949076807*^9}, {
   3.806877684746426*^9, 3.8068777232931833`*^9}, {3.80687797084347*^9, 
   3.806877977272917*^9}, {3.806889381497623*^9, 
   3.806889382724407*^9}},ExpressionUUID->"04b357c5-0165-4d29-bd0a-\
92b30ac99362"],

Cell["\:611f\:8c22\:63d0\:4f9b\:5e2e\:52a9\:7684\:5927\:795e\:4eec", "Item",
 CellChangeTimes->{{3.806653322303093*^9, 3.806653339192911*^9}, {
   3.806653396840764*^9, 3.806653443742309*^9}, {3.8068108175909*^9, 
   3.806810826320978*^9}, 3.8068109302375917`*^9, {3.806811202195511*^9, 
   3.80681121627637*^9}, 3.8068112931715117`*^9, {3.8068206215868483`*^9, 
   3.806820637264089*^9}},ExpressionUUID->"d5fe53aa-78b8-4bbc-8310-\
68d362c49053"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{{3.806845836865086*^9, 3.806845864273169*^9}},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"4e8e5a7c-8b4e-47e7-a75d-3cb2b655ed51"],

Cell[CellGroupData[{

Cell["\:4e3a\:4ec0\:4e48\:8981\:4ecb\:7ecdR-Link", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, 
   3.7880179920575123`*^9, {3.8068110213453407`*^9, 3.806811028277851*^9}, {
   3.806811317705048*^9, 
   3.806811331806027*^9}},ExpressionUUID->"bf6b684b-be70-47c1-be5a-\
c3838a1d25c9"],

Cell["RLink\:662f\:6c9f\:901aR\:548cWolfram\:8bed\:8a00\:7684\:7528Java\:642d\
\:5efa\:7684\:6865\:6881", "Text",
 CellChangeTimes->{{3.8068460332195463`*^9, 3.806846053421348*^9}, {
  3.806846097330089*^9, 
  3.8068461468403263`*^9}},ExpressionUUID->"e3496b69-6288-468f-9e29-\
a4ae76cf9733"],

Cell["RLink\:5728MMA9\:7248\:4e2d\:9996\:6b21\:51fa\:73b0\:ff0c\:5728MMA10.0.\
1\:7248\:4e2d\:6709\:91cd\:5927\:66f4\:65b0", "Text",
 CellChangeTimes->{{3.806876955424247*^9, 
  3.806876987312828*^9}},ExpressionUUID->"1eaa54c5-2ee2-48b2-928f-\
b6d9adb7b773"],

Cell[CellGroupData[{

Cell["1\:3001\:5728\:751f\:7269\:3001\:533b\:5b66\:65b9\:9762\:ff0cR\:8bed\
\:8a00\:5bf9\:4e8eWolfram\:8bed\:8a00\:662f\:5f88\:597d\:7684\:8865\:5145", \
"Subsection",
 CellChangeTimes->{{3.806811354917489*^9, 
  3.80681140580555*^9}},ExpressionUUID->"30bc9a16-b918-4d04-bceb-\
96ff1768b8b8"],

Cell["\<\
R\:8bed\:8a00\:662f\:4e00\:79cd\:751f\:7269\:533b\:5b66\:7814\:7a76\:4e2d\
\:5f88\:5e38\:7528\:7684\:9ad8\:7ea7\:7edf\:8ba1\:8bed\:8a00\:ff0c\:4e3b\:8981\
\:662f\:7528\:6765\:8fdb\:884c\:4e00\:4e9b\:6570\:636e\:5904\:7406\:548c\:76f8\
\:5e94\:7684\:56fe\:50cf\:5236\:4f5c\:3002\:5b83\:6709\:79ef\:7d2f\:8d77\:6765\
\:7684\:7b2c\:4e09\:65b9R\:5305\:6570\:636e\:5e93\:63d0\:4f9b\:4e86\:5927\
\:91cf\:7684\:53ef\:9009\:62e9\:7684\:5de5\:5177\:96c6\:ff08\:5305\:62ec\:4f46\
\:4e0d\:9650\:4e8e\:751f\:7269\:533b\:5b66\:9886\:57df\:ff09\:3002\
\>", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 
   3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 
   3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 
   3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, {
   3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 
   3.5149153375415287`*^9}, 3.514915444638068*^9, 3.78801854468054*^9, {
   3.806811066546274*^9, 3.806811073110664*^9}, 3.806811232034429*^9, {
   3.8068113005338593`*^9, 3.8068113158918953`*^9}, {3.806811410576631*^9, 
   3.806811447421175*^9}, {3.806811518534567*^9, 3.806811559499517*^9}, {
   3.806821897542904*^9, 3.806821919700357*^9}, {3.8068442642776937`*^9, 
   3.8068442706152287`*^9}, 
   3.806844608680026*^9},ExpressionUUID->"ad6ec621-e2d5-4417-b7ad-\
4f0729f69bd8"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.806844142169488*^9, 
  3.8068441432976522`*^9}},ExpressionUUID->"21de5086-d403-49ab-8b3d-\
4ca63466be8e"],

Cell[TextData[{
 StyleBox["\:3010\:7ffb\:8bd1\:3011Awesome R\:8d44\:6e90\:5927\:5168\:4e2d\
\:6587\:7248\:6765\:4e86\:ff0c\:5168\:7403\:6700\:706b\:7684R\:5de5\:5177\
\:5305\:4e00\:7f51\:6253\:5c3d\:ff0c\:8d85\:8fc7300+\:5de5\:5177\:ff0c\:8fd8\
\:5728\:7b49\:4ec0\:4e48\:ff1f",
  FontSize->24],
 "\nhttps://zhuanlan.zhihu.com/p/24747376\n",
 StyleBox["\:4e3b\:8981\:4ecb\:7ecd\:4e86R\:548c\:5b83\:7684\:5de5\:5177\:5305\
\:572825\:4e2a\:65b9\:9762\:7684\:5e94\:7528",
  FontSize->24]
}], "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.514915953520713*^9, 3.514915970873322*^9}, {
  3.5149160102168922`*^9, 3.5149160648448963`*^9}, {3.514916098665063*^9, 
  3.514916123807077*^9}, {3.788018537849914*^9, 3.788018538625842*^9}, {
  3.8068121912595167`*^9, 3.806812209327469*^9}, {3.806812247840769*^9, 
  3.80681227104149*^9}},ExpressionUUID->"083361f4-3d65-49ec-95d9-\
eb8c106582f9"]
}, Closed]],

Cell[CellGroupData[{

Cell["2\:3001\:7528\:6237\:7fa4\:4f53\:5e7f\:6cdb\:ff0c\:4e2d\:6587\:8d44\
\:6e90\:591a", "Subsection",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.483202458956058*^9, {3.514309203943825*^9, 3.514309209861143*^9}, 
   3.788017995841346*^9, {3.806844007028887*^9, 
   3.806844045253313*^9}},ExpressionUUID->"2b38a9ac-d77b-42bf-84f3-\
8db81b090d47"],

Cell["R\:8bed\:8a00\:5728\:751f\:7269\:4fe1\:606f\:5b66\:65b9\:9762\:6709\
\:7740\:5f88\:591a\:4e2d\:6587\:6559\:7a0b\:ff0c\:7b80\:5355\:6613\:5b66\:ff0c\
\:53c8\:4e00\:4e2a\:76f8\:5bf9\:8f83\:5927\:7684\:7528\:6237\:793e\:7fa4\:53ef\
\:4ee5\:8fdb\:884c\:4ea4\:6d41\:3002", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.5143080983732347`*^9, 3.514308102892667*^9}, {
   3.514308469349834*^9, 3.5143084713580437`*^9}, {3.514308507511819*^9, 
   3.514308539833797*^9}, 3.78801374153763*^9, 3.788020189532795*^9, {
   3.8068440575222673`*^9, 3.806844074679247*^9}, {3.806844151244856*^9, 
   3.806844222731449*^9}, {3.806844445515449*^9, 
   3.8068444488362017`*^9}},ExpressionUUID->"423c0f38-12d8-4b17-b3a7-\
181a45f38dd7"]
}, Closed]],

Cell[CellGroupData[{

Cell["3\:3001\:53cd\:5411\:5b89\:5229\:53ef\:4ee5\:589e\:52a0Wolfram\:793e\
\:7fa4\:7684\:840c\:65b0", "Subsection",
 CellChangeTimes->{{3.8068442331123123`*^9, 3.806844234822247*^9}, {
  3.8068442762694798`*^9, 3.806844294676588*^9}, {3.806844450959524*^9, 
  3.806844505233987*^9}},ExpressionUUID->"2698af66-01a8-4f1d-95fe-\
b96d7bdb0a95"],

Cell["\<\
Wolfram\:8bed\:8a00\:5728\:5b83\:7684\:6613\:7528\:6027\:548c\:7b80\:6d01\
\:6027\:4ee5\:53ca\:989c\:503c\:4e0a\:8fdc\:8d85Rstudio\:ff0c\:5c24\:5176\
\:5728\:4f5c\:56fe\:65b9\:9762\:975e\:5e38\:5f3a\:5927\:ff0c\:4e5f\:4e0d\:9700\
\:8981\:53bb\:5b66\:4e60\:592a\:591a\:7684\:5305\:ff0c\:6240\:4ee5\:5927\:5bb6\
\:5b66\:4f1a\:4e4b\:540e\:53ef\:4ee5\:53cd\:5411\:5b89\:5229Wolfram\:8bed\
\:8a00\:ff0c\:4e3aWolfram\:793e\:7fa4\:589e\:6dfb\:65b0\:7684\:6d3b\:529b\
\:3002\
\>", "Text",
 CellChangeTimes->{{3.80684451607698*^9, 
  3.8068446049893293`*^9}},ExpressionUUID->"e3069702-126f-4416-8e8f-\
7066e2283fd8"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"876955d7-7c08-4a9b-b335-e62f32462524"],

Cell[CellGroupData[{

Cell["\:7528R-Link\:4e3a\:5927\:5bb6\:4e3e\:4e2a\|01f330", "Section",
 CellChangeTimes->{{3.8068459110433817`*^9, 
  3.806845928654685*^9}},ExpressionUUID->"fae39314-12c3-44ef-ba40-\
760fd2cc4e70"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\n", 
 RowBox[{"UninstallR", "[", "]"}]}], "Code",
 CellChangeTimes->{{3.8068775110592003`*^9, 3.806877530236311*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"27cd7d48-74e8-4360-9814-4a8df2e3c371"],

Cell[BoxData[{
 RowBox[{"Needs", "[", "\"\<RLink`\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"JLink`UninstallJava", "[", "]"}], ";"}], "\n"}], "\n", 
 RowBox[{"InstallR", "[", "\n", 
  RowBox[{
   RowBox[{"\"\<RVersion\>\"", "\[Rule]", "4"}], ",", "\n", 
   RowBox[{
   "\"\<RHomeLocation\>\"", "\[Rule]", "\n", 
    "\"\</Library/Frameworks/R.framework/Resources\>\""}], ",", "\n", 
   RowBox[{
   "\"\<NativeLibLocation\>\"", "\[Rule]", "\n", 
    "\"\</Library/Frameworks/R.framework/Resources/library/rJava/jri\>\""}]}],
   "]"}]}], "Code",
 CellChangeTimes->{{3.806845946140087*^9, 3.806845988143137*^9}, 
   3.806846076448009*^9, {3.806846171359798*^9, 3.806846338350741*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"3aec2cfc-e196-4a4d-86fc-24c81a14109c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"REvaluate", "[", "\"\<R.version.string\>\"", "]"}]], "Code",
 CellChangeTimes->{{3.806846362085498*^9, 3.806846374110035*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"ba71c11a-45d8-457c-9e97-cca8ed68a0e2"],

Cell[BoxData[
 RowBox[{"{", "\<\"R version 4.0.0 (2020-04-24)\"\>", "}"}]], "Output",
 CellChangeTimes->{3.806887469758377*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"15e0d0e0-d6a5-4f80-a7c7-7b6baabdb7dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"REvaluate", "[", "\"\<library(ggplot2)\>\"", "]"}]], "Code",
 CellChangeTimes->{{3.806847077013626*^9, 3.806847106720211*^9}, {
  3.806847960406417*^9, 3.806847965715414*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"e5d9e0d0-02ba-402c-9874-ace1df72101b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"ggplot2\"\>", ",", "\<\"stats\"\>", ",", "\<\"graphics\"\>", 
   ",", "\<\"grDevices\"\>", ",", "\<\"utils\"\>", ",", "\<\"datasets\"\>", 
   ",", "\<\"methods\"\>", ",", "\<\"base\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.806847111081808*^9, 3.806847437147793*^9, 
  3.80684754979309*^9, 3.8068476568308764`*^9, 3.806847969832769*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"ecac54e9-7e0b-419f-ac42-1087fd024eec"]
}, Open  ]],

Cell["\:53ef\:4ee5\:770b\:5230\:ff0c\:4e00\:4e2a\:7b2c\:4e09\:65b9\:5305\:5b89\
\:88c5\:6210\:529f", "Text",
 CellChangeTimes->{{3.806847124373122*^9, 
  3.806847136684647*^9}},ExpressionUUID->"917892e7-e1a1-4229-822a-\
ddc9d6300d39"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"REvaluate", "[", 
  "\"\<{\nx <- rnorm(100,14,5) \ny <- x + rnorm(100,0,1) \nggplot(data= NULL, \
aes(x = x, y = y)) + \ngeom_point(color = \\\"darkred\\\") + \n\
annotate(\\\"text\\\",x =13 , y = 20,parse = T,\nlabel = \\\"x[1] == \
x[2]\\\") \n}\>\"", "]"}]], "Code",
 CellChangeTimes->{{3.806847182247941*^9, 3.806847266444573*^9}, {
  3.806847558562579*^9, 3.806847585294318*^9}, {3.806847982188985*^9, 
  3.8068480762626467`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"0995e319-b28f-42c6-9a2d-99712bf992dd"],

Cell[BoxData[
 RowBox[{"RObject", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"RObject", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", 
       RowBox[{"RAttributes", "[", 
        RowBox[{"\<\"class\"\>", "\[RuleDelayed]", 
         RowBox[{"{", "\<\"waiver\"\>", "}"}]}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"REnvironment", "[", "]"}], ",", 
       RowBox[{"REnvironment", "[", "]"}]}], "}"}], ",", 
     RowBox[{"REnvironment", "[", "]"}], ",", 
     RowBox[{"RObject", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"RCode", "[", 
          RowBox[{
           RowBox[{"{", "\<\"~x\"\>", "}"}], ",", 
           RowBox[{"RAttributes", "[", 
            RowBox[{
             RowBox[{"\<\".Environment\"\>", "\[RuleDelayed]", 
              RowBox[{"REnvironment", "[", "]"}]}], ",", 
             RowBox[{"\<\"class\"\>", "\[RuleDelayed]", 
              RowBox[{"{", 
               RowBox[{"\<\"quosure\"\>", ",", "\<\"formula\"\>"}], "}"}]}]}],
             "]"}]}], "]"}], ",", 
         RowBox[{"RCode", "[", 
          RowBox[{
           RowBox[{"{", "\<\"~y\"\>", "}"}], ",", 
           RowBox[{"RAttributes", "[", 
            RowBox[{
             RowBox[{"\<\".Environment\"\>", "\[RuleDelayed]", 
              RowBox[{"REnvironment", "[", "]"}]}], ",", 
             RowBox[{"\<\"class\"\>", "\[RuleDelayed]", 
              RowBox[{"{", 
               RowBox[{"\<\"quosure\"\>", ",", "\<\"formula\"\>"}], "}"}]}]}],
             "]"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"RAttributes", "[", 
        RowBox[{
         RowBox[{"\<\"names\"\>", "\[RuleDelayed]", 
          RowBox[{"{", 
           RowBox[{"\<\"x\"\>", ",", "\<\"y\"\>"}], "}"}]}], ",", 
         RowBox[{"\<\"class\"\>", "\[RuleDelayed]", 
          RowBox[{"{", "\<\"uneval\"\>", "}"}]}]}], "]"}]}], "]"}], ",", 
     RowBox[{"{", "}"}], ",", 
     RowBox[{"REnvironment", "[", "]"}], ",", 
     RowBox[{"REnvironment", "[", "]"}], ",", 
     RowBox[{"REnvironment", "[", "]"}], ",", 
     RowBox[{"RObject", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "\<\"x\"\>", "}"}], ",", 
         RowBox[{"{", "\<\"y\"\>", "}"}]}], "}"}], ",", 
       RowBox[{"RAttributes", "[", 
        RowBox[{"\<\"names\"\>", "\[RuleDelayed]", 
         RowBox[{"{", 
          RowBox[{"\<\"x\"\>", ",", "\<\"y\"\>"}], "}"}]}], "]"}]}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"RAttributes", "[", 
    RowBox[{
     RowBox[{"\<\"names\"\>", "\[RuleDelayed]", 
      RowBox[{"{", 
       RowBox[{"\<\"data\"\>", ",", "\<\"layers\"\>", ",", "\<\"scales\"\>", 
        ",", "\<\"mapping\"\>", ",", "\<\"theme\"\>", 
        ",", "\<\"coordinates\"\>", ",", "\<\"facet\"\>", 
        ",", "\<\"plot_env\"\>", ",", "\<\"labels\"\>"}], "}"}]}], ",", 
     RowBox[{"\<\"class\"\>", "\[RuleDelayed]", 
      RowBox[{"{", 
       RowBox[{"\<\"gg\"\>", ",", "\<\"ggplot\"\>"}], "}"}]}]}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{{3.806847215050527*^9, 3.806847231833432*^9}, 
   3.806847269568861*^9, 3.806847441220804*^9, 3.8068475898258333`*^9, 
   3.8068476428088503`*^9, {3.8068479934160347`*^9, 3.8068480074281797`*^9}, 
   3.8068480779032793`*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"75595265-c4b9-455f-919b-3be0380b1e36"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"e80e9091-b57e-43c0-9bfb-7624bc8590ad"],

Cell[CellGroupData[{

Cell["R-Link\:600e\:4e48\:5b89\:88c5\:5462?", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.483202458955147*^9, {3.51430857274755*^9, 3.514308578875259*^9}, 
   3.788018000921266*^9, 3.788019441530291*^9, {3.806844617968298*^9, 
   3.806844626303741*^9}, 
   3.8068454362557592`*^9},ExpressionUUID->"22fb02b5-cbc0-4b90-9450-\
204f41a870fc"],

Cell[CellGroupData[{

Cell["\:5b98\:65b9\:7248\:672c\:7684\:5b89\:88c5\:65b9\:6cd5", "Subsection",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.3824524252213373`*^9, {3.514308595622859*^9, 3.514308595844242*^9}, 
   3.514662627149618*^9, 3.514662723834064*^9, 3.7880180031929083`*^9, {
   3.806844628178363*^9, 3.806844640338491*^9}, {3.806844770404817*^9, 
   3.806844772192561*^9}},ExpressionUUID->"b8dd2ed9-c603-4928-9f37-\
2f6488d6c608"],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}]], "Code",
 CellChangeTimes->{{3.8068446494445667`*^9, 3.80684466392901*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"ed9633cf-b9ff-4beb-8842-a3540653831c"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<RLink`\>\"", "]"}]], "Code",
 CellChangeTimes->{{3.806844685511821*^9, 3.80684469963475*^9}, {
  3.806844754291685*^9, 3.8068447555778027`*^9}},
 CellLabel->
  "In[199]:=",ExpressionUUID->"ea6520e0-f62c-4219-85c1-a2c15cbfa30a"],

Cell["Needs\:51fd\:6570\:52a0\:8f7dRLink\:5305", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.514308656577722*^9, 3.5143086569044237`*^9}, 
   3.7880137284407587`*^9, {3.806844702764163*^9, 
   3.806844751810821*^9}},ExpressionUUID->"4b1b81e6-29d1-4bb3-9383-\
89692a3cc9d4"],

Cell[BoxData[
 RowBox[{"InstallR", "[", "]"}]], "Code",
 CellChangeTimes->{{3.806844816486918*^9, 3.806844823276175*^9}},
 CellLabel->
  "In[200]:=",ExpressionUUID->"c579d8fa-2f4f-47c8-96be-21932d73492f"],

Cell["\:5728mma\:5185\:5b89\:88c5R", "Text",
 CellChangeTimes->{{3.806844842610907*^9, 
  3.8068448558326797`*^9}},ExpressionUUID->"3b1d52a2-db51-4ec9-ad25-\
5dfb635fd054"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RLinkResourcesInstall", "[", "]"}]], "Code",
 CellChangeTimes->{{3.806844867231832*^9, 3.80684487203601*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"c072a7e5-6639-4f7e-9005-f7df0bbed660"],

Cell[BoxData[
 RowBox[{"{", 
  InterpretationBox[
   RowBox[{
    TagBox["PacletObject",
     "SummaryHead"], "[", 
    DynamicModuleBox[{Typeset`open$$ = True, Typeset`embedState$$ = "Ready"}, 
     
     TemplateBox[{
       PaneSelectorBox[{False -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquarePlusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
               Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{
               Thickness[0.0416667], {
                FaceForm[{
                  RGBColor[0.961, 0.961, 0.961], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.5454,
                  22.5972}, {7.5464, 20.5002}, {2.5454, 18.4022}, {2.5454, 
                 12.5982}, {2.5454, 12.5972}, {2.5454, 6.7952}, {7.5454, 
                 4.6962}, {7.546, 4.6972}, {12.5454, 2.5992}, {17.5454, 
                 4.6972}, {17.5454, 4.6962}, {22.5454, 6.7952}, {22.5454, 
                 12.5972}, {22.5454, 12.5982}, {22.5454, 18.4022}}}]}, {
                FaceForm[{
                  RGBColor[0.898, 0.898, 0.898], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{17.125, 8.3359}, {17.125, 
                 14.0569}, {16.875, 14.0569}, {16.875, 8.3359}, {17., 
                 8.1169}, {21.952, 6.0399}, {22.049, 6.2709}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{7.125, 8.3359}, {7.125, 14.0569}, {
                 6.875, 14.0569}, {6.875, 8.3359}, {1.952, 6.2709}, {2.048, 
                 6.0399}, {7., 8.1169}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}}}, {{{11.8745, 6.2383}, {6.9515, 4.1733}, {7.0475, 
                 3.9423}, {11.9995, 6.0193}, {16.9515, 3.9423}, {17.0475, 
                 4.1733}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{17.125, 14.1392}, {17.125, 
                 19.8602}, {16.875, 19.8602}, {16.875, 14.1392}, {17., 
                 13.9202}, {21.952, 11.8432}, {22.049, 12.0742}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{7.125, 14.1392}, {7.125, 
                 19.8602}, {6.875, 19.8602}, {6.875, 14.1392}, {1.952, 
                 12.0742}, {2.048, 11.8432}, {7., 13.9202}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}}}, {{{11.8746, 21.3633}, {11.8746, 18.3563}, {
                 11.9996, 18.3033}, {12.1246, 18.3563}, {12.1246, 21.3633}, {
                 11.9996, 21.4153}}}]}, {
                FaceForm[{
                  RGBColor[0.749, 0.749, 0.749], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                  3}}}, {{{8.292, 19.8594}, {12., 21.4154}, {15.707, 
                  19.8594}, {12., 18.3034}}, {{17.5, 19.5274}, {17.5, 
                  20.1924}, {12., 22.5004}, {6.5, 20.1924}, {6.5, 19.5284}, {
                  12., 17.2194}, {12., 17.2194}, {15.7, 18.7724}, {17.5, 
                  19.5274}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}}}, {{{11.5, 8.5156}, {11.5, 6.4876}, {11.5, 
                 5.4026}, {12.5, 5.8226}, {12.5, 8.5156}, {12., 8.3056}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
                   0}, {0, 1, 0}}}, {{{21.5, 6.4873}, {17.5, 4.8083}, {17.5, 
                  9.5283}, {21.5, 11.2073}}, {{21.5, 12.7113}, {21.5, 
                  12.2913}, {17., 10.4033}, {16.5, 10.6133}, {16.5, 
                  10.1943}, {15.707, 9.8613}, {16.5, 9.5283}, {16.5, 
                  4.8083}, {16.5, 4.8093}, {16.5, 4.3903}, {15.707, 4.0573}, {
                  17., 3.5143}, {22.5, 5.8223}, {22.5, 12.2913}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
                   0}, {0, 1, 0}}}, {{{6.5, 4.8086}, {2.5, 6.4876}, {2.5, 
                  11.2066}, {6.5, 9.5286}}, {{7.5, 9.1096}, {7.5, 9.1096}, {
                  7.5, 9.5286}, {8.292, 9.8616}, {7.5, 10.1936}, {7.5, 
                  10.6136}, {7., 10.4036}, {2.5, 12.2906}, {2.5, 12.7106}, {
                  1.5, 12.2916}, {1.5, 5.8226}, {7., 3.5146}, {8.293, 
                  4.0576}, {7.5, 4.3906}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}}}, {{{3.2925, 17.7622}, {7.0005, 
                  19.3182}, {10.7075, 17.7622}, {7.0005, 16.2062}}, {{6.5005, 
                  10.6122}, {2.5005, 12.2912}, {2.5005, 17.0102}, {6.5005, 
                  15.3322}}, {{7.5005, 10.1932}, {7.5005, 10.6122}, {7.5005, 
                  15.3322}, {12.0005, 17.2202}, {12.5005, 17.0102}, {12.5005, 
                  18.0952}, {7.0005, 20.4032}, {1.5005, 18.0952}, {1.5005, 
                  11.6262}, {7.0005, 9.3182}, {8.2935, 9.8612}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}}}, {{{21.5, 12.291}, {17.5, 10.612}, {
                  17.5, 15.332}, {21.5, 17.01}}, {{13.293, 17.762}, {17., 
                  19.318}, {20.708, 17.762}, {17., 16.207}}, {{17., 20.403}, {
                  11.5, 18.095}, {11.5, 17.01}, {12., 17.22}, {16.5, 
                  15.332}, {16.5, 10.612}, {16.5, 10.194}, {15.706, 9.861}, {
                  17., 9.318}, {22.5, 11.626}, {22.5, 18.095}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}}}, {{{16.4995, 4.3906}, {12.4995, 
                  2.7116}, {12.4995, 7.4316}, {16.4995, 9.1096}}, {{11.4995, 
                  2.7116}, {7.4995, 4.3906}, {7.4995, 9.1096}, {11.4995, 
                  7.4316}}, {{16.4995, 10.6136}, {16.4995, 10.1946}, {11.9995,
                   8.3056}, {8.2915, 9.8616}, {7.4995, 10.1936}, {7.4995, 
                  10.6146}, {6.4995, 10.1946}, {6.4995, 3.7256}, {11.9995, 
                  1.4176}, {17.4995, 3.7256}, {17.4995, 10.1946}}}]}, {
                FaceForm[{
                  RGBColor[0.965, 0.765, 0.749], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}}}, {{{12., 17.6616}, {16.945, 15.5856}, {16.945, 
                 9.9376}, {12., 7.8636}, {7.055, 9.9376}, {7.055, 
                 15.5856}}}]}, {
                FaceForm[{
                  RGBColor[0.91, 0.655, 0.635], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.125, 
                 17.7627}, {11.875, 17.7627}, {11.875, 12.0407}, {6.952, 
                 9.9757}, {7.048, 9.7447}, {12., 11.8227}, {16.952, 9.7447}, {
                 17.048, 9.9757}, {12.125, 12.0407}}}]}, {
                FaceForm[{
                  RGBColor[0.867, 0.067, 0.], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                  0}}}, {{{12.5, 8.5146}, {12.5, 13.2336}, {16.5, 14.9116}, {
                  16.5, 10.1926}}, {{7.5, 14.9116}, {11.5, 13.2336}, {11.5, 
                  8.5146}, {7.5, 10.1926}}, {{15.708, 15.6636}, {12., 
                  14.1086}, {8.292, 15.6636}, {12., 17.2206}}, {{12., 
                  18.3046}, {6.5, 15.9956}, {6.5, 9.5286}, {12., 7.2206}, {
                  17.5, 9.5286}, {17.5, 15.9956}}}]}}, AspectRatio -> 
              Automatic, ImageSize -> {24., 24.}, 
              PlotRange -> {{0., 24.}, {0., 24.}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"RLinkRuntime\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"9.0.0.0\"", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}], True -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquareMinusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
                Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{
               Thickness[0.0416667], {
                FaceForm[{
                  RGBColor[0.961, 0.961, 0.961], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.5454,
                  22.5972}, {7.5464, 20.5002}, {2.5454, 18.4022}, {2.5454, 
                 12.5982}, {2.5454, 12.5972}, {2.5454, 6.7952}, {7.5454, 
                 4.6962}, {7.546, 4.6972}, {12.5454, 2.5992}, {17.5454, 
                 4.6972}, {17.5454, 4.6962}, {22.5454, 6.7952}, {22.5454, 
                 12.5972}, {22.5454, 12.5982}, {22.5454, 18.4022}}}]}, {
                FaceForm[{
                  RGBColor[0.898, 0.898, 0.898], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{17.125, 8.3359}, {17.125, 
                 14.0569}, {16.875, 14.0569}, {16.875, 8.3359}, {17., 
                 8.1169}, {21.952, 6.0399}, {22.049, 6.2709}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{7.125, 8.3359}, {7.125, 14.0569}, {
                 6.875, 14.0569}, {6.875, 8.3359}, {1.952, 6.2709}, {2.048, 
                 6.0399}, {7., 8.1169}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}}}, {{{11.8745, 6.2383}, {6.9515, 4.1733}, {7.0475, 
                 3.9423}, {11.9995, 6.0193}, {16.9515, 3.9423}, {17.0475, 
                 4.1733}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{17.125, 14.1392}, {17.125, 
                 19.8602}, {16.875, 19.8602}, {16.875, 14.1392}, {17., 
                 13.9202}, {21.952, 11.8432}, {22.049, 12.0742}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{7.125, 14.1392}, {7.125, 
                 19.8602}, {6.875, 19.8602}, {6.875, 14.1392}, {1.952, 
                 12.0742}, {2.048, 11.8432}, {7., 13.9202}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}}}, {{{11.8746, 21.3633}, {11.8746, 18.3563}, {
                 11.9996, 18.3033}, {12.1246, 18.3563}, {12.1246, 21.3633}, {
                 11.9996, 21.4153}}}]}, {
                FaceForm[{
                  RGBColor[0.749, 0.749, 0.749], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                  3}}}, {{{8.292, 19.8594}, {12., 21.4154}, {15.707, 
                  19.8594}, {12., 18.3034}}, {{17.5, 19.5274}, {17.5, 
                  20.1924}, {12., 22.5004}, {6.5, 20.1924}, {6.5, 19.5284}, {
                  12., 17.2194}, {12., 17.2194}, {15.7, 18.7724}, {17.5, 
                  19.5274}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}}}, {{{11.5, 8.5156}, {11.5, 6.4876}, {11.5, 
                 5.4026}, {12.5, 5.8226}, {12.5, 8.5156}, {12., 8.3056}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
                   0}, {0, 1, 0}}}, {{{21.5, 6.4873}, {17.5, 4.8083}, {17.5, 
                  9.5283}, {21.5, 11.2073}}, {{21.5, 12.7113}, {21.5, 
                  12.2913}, {17., 10.4033}, {16.5, 10.6133}, {16.5, 
                  10.1943}, {15.707, 9.8613}, {16.5, 9.5283}, {16.5, 
                  4.8083}, {16.5, 4.8093}, {16.5, 4.3903}, {15.707, 4.0573}, {
                  17., 3.5143}, {22.5, 5.8223}, {22.5, 12.2913}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
                   0}, {0, 1, 0}}}, {{{6.5, 4.8086}, {2.5, 6.4876}, {2.5, 
                  11.2066}, {6.5, 9.5286}}, {{7.5, 9.1096}, {7.5, 9.1096}, {
                  7.5, 9.5286}, {8.292, 9.8616}, {7.5, 10.1936}, {7.5, 
                  10.6136}, {7., 10.4036}, {2.5, 12.2906}, {2.5, 12.7106}, {
                  1.5, 12.2916}, {1.5, 5.8226}, {7., 3.5146}, {8.293, 
                  4.0576}, {7.5, 4.3906}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}}}, {{{3.2925, 17.7622}, {7.0005, 
                  19.3182}, {10.7075, 17.7622}, {7.0005, 16.2062}}, {{6.5005, 
                  10.6122}, {2.5005, 12.2912}, {2.5005, 17.0102}, {6.5005, 
                  15.3322}}, {{7.5005, 10.1932}, {7.5005, 10.6122}, {7.5005, 
                  15.3322}, {12.0005, 17.2202}, {12.5005, 17.0102}, {12.5005, 
                  18.0952}, {7.0005, 20.4032}, {1.5005, 18.0952}, {1.5005, 
                  11.6262}, {7.0005, 9.3182}, {8.2935, 9.8612}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}}}, {{{21.5, 12.291}, {17.5, 10.612}, {
                  17.5, 15.332}, {21.5, 17.01}}, {{13.293, 17.762}, {17., 
                  19.318}, {20.708, 17.762}, {17., 16.207}}, {{17., 20.403}, {
                  11.5, 18.095}, {11.5, 17.01}, {12., 17.22}, {16.5, 
                  15.332}, {16.5, 10.612}, {16.5, 10.194}, {15.706, 9.861}, {
                  17., 9.318}, {22.5, 11.626}, {22.5, 18.095}}}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}, {0, 1, 0}}}, {{{16.4995, 4.3906}, {12.4995, 
                  2.7116}, {12.4995, 7.4316}, {16.4995, 9.1096}}, {{11.4995, 
                  2.7116}, {7.4995, 4.3906}, {7.4995, 9.1096}, {11.4995, 
                  7.4316}}, {{16.4995, 10.6136}, {16.4995, 10.1946}, {11.9995,
                   8.3056}, {8.2915, 9.8616}, {7.4995, 10.1936}, {7.4995, 
                  10.6146}, {6.4995, 10.1946}, {6.4995, 3.7256}, {11.9995, 
                  1.4176}, {17.4995, 3.7256}, {17.4995, 10.1946}}}]}, {
                FaceForm[{
                  RGBColor[0.965, 0.765, 0.749], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}}}, {{{12., 17.6616}, {16.945, 15.5856}, {16.945, 
                 9.9376}, {12., 7.8636}, {7.055, 9.9376}, {7.055, 
                 15.5856}}}]}, {
                FaceForm[{
                  RGBColor[0.91, 0.655, 0.635], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.125, 
                 17.7627}, {11.875, 17.7627}, {11.875, 12.0407}, {6.952, 
                 9.9757}, {7.048, 9.7447}, {12., 11.8227}, {16.952, 9.7447}, {
                 17.048, 9.9757}, {12.125, 12.0407}}}]}, {
                FaceForm[{
                  RGBColor[0.867, 0.067, 0.], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                  0}}}, {{{12.5, 8.5146}, {12.5, 13.2336}, {16.5, 14.9116}, {
                  16.5, 10.1926}}, {{7.5, 14.9116}, {11.5, 13.2336}, {11.5, 
                  8.5146}, {7.5, 10.1926}}, {{15.708, 15.6636}, {12., 
                  14.1086}, {8.292, 15.6636}, {12., 17.2206}}, {{12., 
                  18.3046}, {6.5, 15.9956}, {6.5, 9.5286}, {12., 7.2206}, {
                  17.5, 9.5286}, {17.5, 15.9956}}}]}}, AspectRatio -> 
              Automatic, ImageSize -> {24., 24.}, 
              PlotRange -> {{0., 24.}, {0., 24.}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"RLinkRuntime\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"9.0.0.0\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Location: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                  "\"/Users/jingzeyu/Library/WolframDesktop/Paclets/\
Repository/RLinkRuntime-MacOSX-x86-64-9.0.0.0\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   TagBox["\"{RVersion -> 2.14.0}\"", Short], 
                   "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}]}, 
        Dynamic[Typeset`open$$], ImageSize -> Automatic]},
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   PacletObject[
    Association[
    "Name" -> "RLinkRuntime", "Version" -> "9.0.0.0", "MathematicaVersion" -> 
     "8+", "Description" -> "{RVersion -> 2.14.0}", 
     "SystemID" -> {"MacOSX-x86-64"}, "Qualifier" -> "MacOSX-x86-64", 
     "Extensions" -> {{"Resource", "Resources" -> {"SystemFiles"}}}, 
     "Location" -> 
     "/Users/jingzeyu/Library/WolframDesktop/Paclets/Repository/RLinkRuntime-\
MacOSX-x86-64-9.0.0.0"]],
   Editable->False,
   SelectWithContents->True,
   Selectable->False], "}"}]], "Output",
 CellChangeTimes->{
  3.806844873029932*^9, {3.806887561344042*^9, 3.806887577825472*^9}, 
   3.806887636733529*^9, 3.806889558174718*^9},
 CellLabel->
  "Out[202]=",ExpressionUUID->"0be105cd-e30a-4c93-803c-4043ede4e076"]
}, Open  ]],

Cell["\:68c0\:67e5\:662f\:5426\:5b89\:88c5\:6210\:529f", "Text",
 CellChangeTimes->{{3.8068449971594563`*^9, 
  3.806845006517568*^9}},ExpressionUUID->"92abfb67-cfb2-4e74-879e-\
e8da1bbed7f8"],

Cell[BoxData[
 RowBox[{"UninstallR", "[", "]"}]], "Code",
 CellChangeTimes->{{3.806845267581863*^9, 3.806845279812879*^9}, {
  3.8068453219534063`*^9, 3.806845325918859*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"c6972282-0313-4fd2-9f47-179bd03bce3a"],

Cell["\:5378\:8f7dR\:7684\:65b9\:6cd5", "Text",
 CellChangeTimes->{{3.806845290721097*^9, 
  3.806845336355164*^9}},ExpressionUUID->"416be541-137c-425f-b3b3-\
446a4b3f7249"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RSet", "[", 
  RowBox[{"\"\<rvFirst\>\"", ",", "1"}], "]"}]], "Code",
 CellChangeTimes->{{3.806845362718623*^9, 3.806845423007794*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"66f8c396-16c0-46bf-a837-5e1c52d4da5e"],

Cell[BoxData[
 TemplateBox[{
  "RSet", "noinst", 
   "\"The R runtime has not been installed. Install it first, by running \
InstallR\"", 2, 30, 14, 23875729742189338118, "Local", "RLink`RSet"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8068454243311853`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[30]:=",ExpressionUUID->"a1358852-ee7c-4b0d-9b36-\
f9ba656198a2"],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{3.806845424352467*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"c9c7cbe9-08e3-4ab7-8e77-aa7008cab3fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5b98\:65b9\:7248\:672c\:5b58\:5728\:7684\:95ee\:9898", "Subsubsection",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.483202458956718*^9, {3.514308604990972*^9, 3.514308608117634*^9}, 
   3.7880180076360607`*^9, {3.8068447746962233`*^9, 
   3.806844783684421*^9}},ExpressionUUID->"2b38b412-6f5f-4fc5-8d41-\
2eed6cd289d7"],

Cell[CellGroupData[{

Cell["RLink\:81ea\:5e26\:7684R\:7248\:672c\:8fc7\:4e8e\:53e4\:65e92.14.0\:7248\
\:672c\:ff0c\:6211\:7684R\:7248\:672c\:662f4.0.0", "Item",
 CellChangeTimes->{{3.806845119849654*^9, 3.8068451351419487`*^9}, {
  3.806845561615027*^9, 
  3.806845574662951*^9}},ExpressionUUID->"aa0765d4-6f21-48d7-a680-\
19f1fe03498f"],

Cell["\:9664\:4e86Windows\:7248\:672c\:5916\:ff0c\:5176\:4ed6\:7248\:672c\
\:5747\:4e0d\:80fd\:4f7f\:7528\:6269\:5c55\:5305\:ff08What\:ff1f\:ff01\:ff09",\
 "Item",
 CellChangeTimes->{{3.806845183109685*^9, 
  3.806845186481121*^9}},ExpressionUUID->"510fce70-9b76-458c-baf5-\
815636f188cf"],

Cell["Windows\:7248\:672c\:7684\:989d\:5916R\:7248\:672c\:5b89\:88c5\:65b9\
\:6cd5", "Subitem",
 CellChangeTimes->{{3.8068451978118877`*^9, 3.8068452323310013`*^9}, {
  3.806845595875577*^9, 
  3.806845605019318*^9}},ExpressionUUID->"d7792245-a3d2-45d5-84fe-\
6214bc0aa104"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Needs", "[", "\"\<RLink`\>\"", "]"}], "\n", 
 RowBox[{"InstallR", "[", 
  RowBox[{"\"\<RHomeLocation\>\"", "\[Rule]", "\"\</Library/R/R-3/...\>\""}], 
  "]"}]}], "Code",
 CellChangeTimes->{
  3.8068452512715073`*^9, {3.8068454412401857`*^9, 
   3.806845493915552*^9}},ExpressionUUID->"02a6d37a-258c-4d48-92e5-\
1f3f7686f2f6"],

Cell["RHomeLocation\:9009\:9879\:7684\:503c\:5e94\:8be5\:4e0eR\:7684R_HOME\
\:4e00\:81f4\:ff0c\:5e76\:4e14\:6307\:5411\:6839\:76ee\:5f55", "Text",
 CellChangeTimes->{{3.806845505887581*^9, 
  3.8068455504811897`*^9}},ExpressionUUID->"3cd0649f-0450-46ca-b713-\
70951cb2847b"],

Cell["\:5e2e\:52a9\:83dc\:5355\:662f\:82f1\:6587\:6587\:6863\:ff0c\:800c\:4e14\
\:4e0d\:662f\:5f88\:5168", "Item",
 CellChangeTimes->{{3.8068456457640867`*^9, 
  3.806845671424883*^9}},ExpressionUUID->"c2b7ec62-bedc-44cd-a431-\
42be5a7a4994"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"d0653087-e6fc-4117-98fa-618b3d35e3ba"],

Cell[CellGroupData[{

Cell["\:5bf9\:4e8eMac \
OS\:7528\:6237\:6765\:8bf4\:ff0c\:600e\:4e48\:6109\:5feb\:4f7f\:7528RLink\
\:5462\:ff1f", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.483202458955147*^9, {3.514308863196991*^9, 3.5143088633311243`*^9}, 
   3.788013415920067*^9, {3.806845682808075*^9, 
   3.80684573397209*^9}},ExpressionUUID->"748d284b-6ee0-4ac7-9756-\
ff29a9b02b30"],

Cell["\:4ee5\:4e0b\:65b9\:6848\:91c7\:7528\:975e\:5b98\:65b9\:65b9\:6cd5\:ff0c\
\:8bf7\:52a1\:5fc5\:8ba4\:771f\:5b66\:4e60\:3002", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.514308661619236*^9, 3.514308664754455*^9}, 
   3.78801341354379*^9, {3.806845736158865*^9, 
   3.8068457785825233`*^9}},ExpressionUUID->"c0760fec-2c98-4e68-bfc9-\
10fb8c0c6fad"],

Cell[CellGroupData[{

Cell["\<\
\:7b2c\:4e00\:6b65\:ff1a\:5b98\:7f51\:5b89\:88c5\:4e00\:4e2a\:8f83\:9ad8\:7248\
\:672c\:7684R\:ff08R3.5\:4ee5\:4e0a\:7248\:672c\:ff09\
\>", "Item",
 CellChangeTimes->{{3.806876627252838*^9, 3.806876655020159*^9}, 
   3.806876753645949*^9},ExpressionUUID->"5098a626-462b-4378-8875-\
b3e907d6f44a"],

Cell["https://cran.r-project.org/mirrors.html", "ItemParagraph",
 CellChangeTimes->{{3.806876714947097*^9, 
  3.8068767207183*^9}},ExpressionUUID->"b9ca4f8d-6c14-4839-aaef-ea0ae3585581"],

Cell["\<\
\:6211\:5927\:90e8\:5206\:65f6\:95f4\:5728\:4e0a\:6d77\:ff0c\:6240\:4ee5\:9009\
\:62e9\:540c\:6d4e\:5927\:5b66\:7684\:955c\:50cf\
\>", "ItemParagraph",
 CellChangeTimes->{{3.806876714947097*^9, 
  3.8068767466522493`*^9}},ExpressionUUID->"77b8a823-e4ae-4b5a-8343-\
80adf36bfc9a"],

Cell["\:7b2c\:4e8c\:6b65\:ff1a\:5728R\:91cc\:5b89\:88c5rJava\:5305", "Item",
 CellChangeTimes->{{3.80687676494403*^9, 3.8068768089460583`*^9}, 
   3.806876896008019*^9},ExpressionUUID->"63265c14-e833-4a7e-85cc-\
6e959af7ac0d"],

Cell["install.packages(\[OpenCurlyDoubleQuote]rJava\[CloseCurlyDoubleQuote])",\
 "ItemParagraph",
 CellChangeTimes->{{3.806876822482416*^9, 
  3.806876847259755*^9}},ExpressionUUID->"018b294b-81e8-4229-96be-\
6a75ae0ddaba"],

Cell["\:7b49\:5f85\:4e0b\:8f7d\:5b89\:88c5\:5b8c\:6210", "ItemParagraph",
 CellChangeTimes->{{3.806876822482416*^9, 
  3.806876854150515*^9}},ExpressionUUID->"557074b9-0e3a-4da0-b705-\
125ef4d7b4cd"],

Cell["\:7b2c\:4e09\:6b65\:ff1a\:6253\:5f00MMA/Wolfram desktop/Kernel", "Item",
 CellChangeTimes->{{3.806876889689349*^9, 3.8068769341196136`*^9}, {
  3.806876999779776*^9, 
  3.806877013342876*^9}},ExpressionUUID->"8ef4f0a2-8af5-433d-bcbf-\
8721c1331670"],

Cell["\:8fd9\:91cc\:4f7f\:7528\:7684\:662fR\:7684\:65b0\:72484.0.0\:ff0cMac \
OS X Catalina", "ItemParagraph",
 CellChangeTimes->{{3.8068770777706842`*^9, 3.8068770935411177`*^9}, {
  3.806877173633985*^9, 3.80687717597283*^9}, {3.8068772309431477`*^9, 
  3.80687728271462*^9}, {3.806877344539527*^9, 3.8068773445404797`*^9}, {
  3.806887958331905*^9, 
  3.806887960562646*^9}},ExpressionUUID->"6e51db44-33aa-42c0-a798-\
9d3b93aa33b1"],

Cell["\:8f93\:5165\:5982\:4e0b\:4ee3\:7801", "ItemParagraph",
 CellChangeTimes->{{3.8068770777706842`*^9, 3.8068770935411177`*^9}, {
  3.806877173633985*^9, 3.80687717597283*^9}, {3.8068772309431477`*^9, 
  3.80687728271462*^9}, {3.806877348534561*^9, 
  3.806877351012929*^9}},ExpressionUUID->"c50d33dd-33de-4cfc-973c-\
8ffb2e978687"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<RLink`\>\"", "]"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"JLink`UninstallJava", "[", "]"}], ";"}], "\n"}], "\n", 
 RowBox[{"InstallR", "[", "\n", "\n", "  ", 
  RowBox[{
   RowBox[{"\"\<RVersion\>\"", " ", "->", " ", "4"}], ",", "\n", "\n", "  ", 
   RowBox[{
   "\"\<RHomeLocation\>\"", " ", "->", " ", 
    "\"\</Library/Frameworks/R.framework/Resources\>\""}], ",", "\n", "\n", 
   "  ", 
   RowBox[{
   "\"\<NativeLibLocation\>\"", " ", "->", " ", 
    "\"\</Library/Frameworks/R.framework/Resources/library/rJava/jri\>\""}]}],
   "]"}]}], "Code",
 CellChangeTimes->{{3.8068770451175137`*^9, 3.80687707171348*^9}, {
  3.806877289331275*^9, 3.806877291272663*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"95ad9a03-7c16-4724-83cb-7aab716c1848"],

Cell[CellGroupData[{

Cell["\<\
\:53ef\:4ee5\:770b\:5230\:ff0c\:8fd9\:91cc\:4f7f\:7528\:7684\:7248\:672c\:4fe1\
\:606f\:662f4\:ff0cRHomeLocation\:8bbe\:5b9a\:4e3a\:4e86\:5b98\:65b9\:5730\
\:5740\:ff0cNativeLibLocation\:8bbe\:5b9a\:4e3a\:4e86\:5b98\:65b9\:5730\:5740\
\:ff0c\:6240\:4ee5\:4e0d\:8981\:5bf9\:5176\:8fdb\:884c\:66f4\:6539\:3002\
\>", "ItemParagraph",
 CellChangeTimes->{{3.806877388187312*^9, 
  3.806877443852448*^9}},ExpressionUUID->"7c51334f-9772-41c1-b68b-\
1b99c6ad9bd5"],

Cell["\:7b2c\:56db\:6b65\:68c0\:67e5\:662f\:5426\:5b89\:88c5\:5b8c\:6210", \
"Item",
 CellChangeTimes->{{3.806877366124666*^9, 3.806877376008114*^9}, {
  3.8068775740143003`*^9, 
  3.8068775740145597`*^9}},ExpressionUUID->"26ba2a51-d511-42da-93ae-\
f5f62befb1af"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"REvaluate", "[", "\"\<R.version.string\>\"", "]"}]], "Code",
 CellChangeTimes->{{3.806877587916799*^9, 3.806877610196808*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"9c24254b-5ec2-4e33-938d-aa9af729e536"],

Cell[BoxData[
 RowBox[{"{", "\<\"R version 4.0.0 (2020-04-24)\"\>", "}"}]], "Output",
 CellChangeTimes->{{3.8068775991018267`*^9, 3.8068776112040873`*^9}, 
   3.806879045564806*^9, 3.806888227709609*^9, 3.806889604206635*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"fc6f8bbb-957d-4ca2-abdb-53a1001dd559"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell["", "SlideShowNavigationBar", "FirstSlide",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"f54e7681-3009-4b1a-8048-c5eb15bf863a"],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"095e1d23-85e5-4b14-bf86-0affd2ac9e55"],

Cell[CellGroupData[{

Cell["RLink\:7a76\:7adf\:8be5\:600e\:4e48\:7528\:ff1f", "Section",
 CellChangeTimes->{{3.806877644067898*^9, 
  3.80687765443756*^9}},ExpressionUUID->"0039860d-53df-47bf-8f08-\
21828ae6171b"],

Cell[CellGroupData[{

Cell["\:4e3b\:8981\:4ecb\:7ecd\:6700\:5e38\:7528\:7684\:4e09\:4e2a\:5e38\:7528\
\:51fd\:6570", "Item",
 CellChangeTimes->{{3.806877771027535*^9, 
  3.806877796800489*^9}},ExpressionUUID->"a70c4268-e104-4948-b5ba-\
b81ea2d23982"],

Cell[CellGroupData[{

Cell["\:4e3b\:7ba1\:4ea4\:4e92\:ff1aRSet[\[OpenCurlyDoubleQuote]Var\
\[CloseCurlyDoubleQuote],Value]", "Subitem",
 CellChangeTimes->{{3.806877788341218*^9, 
  3.8068778209469957`*^9}},ExpressionUUID->"f46b3c5f-c33b-49c2-83fe-\
dcbee83115a5"],

Cell["\:4e3b\:7ba1\:8fd0\:884c\:ff1aREvaluate[\[OpenCurlyDoubleQuote]\
RCommandString\[CloseCurlyDoubleQuote]]", "Subitem",
 CellChangeTimes->{{3.806877788341218*^9, 
  3.8068778758784733`*^9}},ExpressionUUID->"270f2625-9870-421e-803d-\
38970615822e"],

Cell["\:4e3b\:7ba1\:51fd\:6570\:ff1aRFunction[\[OpenCurlyDoubleQuote]\
\[CloseCurlyDoubleQuote]]", "Subitem",
 CellChangeTimes->{{3.806877788341218*^9, 
  3.806877902646722*^9}},ExpressionUUID->"95f59a55-bf33-4c6f-8348-\
83929b0e5bd3"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["RSet[]", "Subsection",
 CellChangeTimes->{{3.806878655622168*^9, 
  3.8068786595255003`*^9}},ExpressionUUID->"fbf003e5-02cd-400d-9b92-\
6a68547b9b48"],

Cell["\:57fa\:672c\:7528\:6cd5", "Item",
 CellChangeTimes->{{3.806879386034502*^9, 
  3.806879389697228*^9}},ExpressionUUID->"42e64496-65cb-40b1-8738-\
1cee016ae179"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vVar", "=", 
  RowBox[{"RSet", "[", 
   RowBox[{"\"\<rvVar\>\"", ",", "1"}], "]"}]}]], "Code",
 CellChangeTimes->{{3.806878069192608*^9, 3.806878101752933*^9}, 
   3.806878608498973*^9},
 CellLabel->"In[96]:=",ExpressionUUID->"e657788b-21c0-4a2c-af10-764a402ad28f"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.806878104672415*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"2ea90fbc-553c-45e4-8095-48766551594c"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{"vVar", "\n", 
 RowBox[{"REvaluate", "[", "\"\<rvVar\>\"", "]"}]}], "Code",
 CellChangeTimes->{{3.806878126564519*^9, 3.80687814775874*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"0164854b-8c86-417c-85bd-4b06d2f66e26"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.806878131813272*^9, 3.806878149767136*^9}},
 CellLabel->"Out[98]=",ExpressionUUID->"379ddac3-142c-49e0-aba2-33d94bf67e5e"],

Cell[BoxData[
 RowBox[{"{", "1", "}"}]], "Output",
 CellChangeTimes->{{3.806878131813272*^9, 3.806878150014062*^9}},
 CellLabel->"Out[99]=",ExpressionUUID->"3488b647-6243-489b-b452-f53a2ee2d10e"]
}, Closed]],

Cell["RLink\:4f1a\:81ea\:52a8\:5e2e\:4f60\:8bc6\:522b\:3001\:8f6c\:6362\:6570\
\:636e\:683c\:5f0f", "Item",
 CellChangeTimes->{{3.806879419975239*^9, 
  3.8068794338095827`*^9}},ExpressionUUID->"e7fed9a5-dcad-4b79-a372-\
1fed4a8dce51"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Range", "/@", 
  RowBox[{"Range", "[", "5", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"lList1", "=", 
   RowBox[{"RSet", "[", 
    RowBox[{"\"\<rlList1\>\"", ",", 
     RowBox[{"Range", "/@", 
      RowBox[{"Range", "[", "5", "]"}]}]}], "]"}]}], 
  ";"}], "\n", "lList1", "\n", 
 RowBox[{"REvaluate", "[", "\"\<rlList1\>\"", "]"}]}], "Code",
 CellChangeTimes->{{3.806878235171185*^9, 3.806878299013958*^9}, {
  3.806878329306086*^9, 3.8068783315178022`*^9}, {3.806888153732059*^9, 
  3.806888176402781*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"34918df1-0714-4c1b-9f10-b9bfcb79a394"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8068782723609*^9, 3.806878300562242*^9}, 
   3.806889630689086*^9},
 CellLabel->
  "Out[208]=",ExpressionUUID->"64ee4136-4058-4fcd-84b6-60acd8d26430"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8068782723609*^9, 3.806878300562242*^9}, 
   3.8068896315807533`*^9},
 CellLabel->
  "Out[210]=",ExpressionUUID->"e2e78d78-c37d-4dd8-aabf-431f05915b80"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8068782723609*^9, 3.806878300562242*^9}, 
   3.806889632170952*^9},
 CellLabel->
  "Out[211]=",ExpressionUUID->"81da626c-8a7c-45c8-8fed-7601e6f5f75e"]
}, Open  ]],

Cell["\:53ef\:4ee5\:5bf9R\:6570\:636e\:7684\:90e8\:5206\:8fdb\:884c\:7f16\
\:8f91", "Item",
 CellChangeTimes->{{3.806879456791554*^9, 
  3.806879466150079*^9}},ExpressionUUID->"c3118365-7c34-4737-891e-\
12a75fb19bba"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"RSet", "[", 
  RowBox[{"\"\<rlList1[[1]]\>\"", ",", 
   RowBox[{"Range", "[", "5", "]"}]}], "]"}], "\n", 
 RowBox[{"REvaluate", "[", "\"\<rlList1\>\"", "]"}]}], "Code",
 CellChangeTimes->{{3.80687837424616*^9, 3.8068784096135607`*^9}, {
  3.806878449804983*^9, 3.806878464508979*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"89021228-ca2d-40e6-8fe2-25cce39b8a98"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]], "Output",
 CellChangeTimes->{
  3.806878410748629*^9, {3.80687845065905*^9, 3.806878465107319*^9}},
 CellLabel->
  "Out[106]=",ExpressionUUID->"33eb0e98-1764-4a0f-8f2d-ebf673f812bc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.806878410748629*^9, {3.80687845065905*^9, 3.80687846523857*^9}},
 CellLabel->
  "Out[107]=",ExpressionUUID->"8b3ab4f5-720d-4fa3-9575-42c3ea694824"]
}, Open  ]],

Cell["R\:7684\:6570\:636e\:7c7b\:578b\:6709\:9650\:ff0c\:4e0d\:80fd\:968f\
\:610f\:653e\:5165\:6570\:636e\:ff08Wolfram\:4e2dEverything is an Expression\
\:ff09", "Item",
 CellChangeTimes->{{3.806879486871408*^9, 
  3.80687953142828*^9}},ExpressionUUID->"7f648332-4c0d-464b-b460-\
f9943ffd8923"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"b", "=", "2"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"c", "=", "3"}], ";"}], "\n", 
 RowBox[{"RSet", "[", 
  RowBox[{"\"\<rvVar2\>\"", ",", 
   RowBox[{"a", "+", "b", "+", "c"}]}], "]"}], "\n", 
 RowBox[{
  RowBox[{"RSet", "[", 
   RowBox[{"\"\<rvVar3\>\"", ",", 
    RowBox[{"d", "+", "e", "+", "f"}]}], "]"}], 
  "\[AliasDelimiter]"}]}], "Code",
 CellChangeTimes->{{3.80687853044415*^9, 3.8068785984676237`*^9}, 
   3.806889661036018*^9},ExpressionUUID->"924d6351-d076-41e8-bec4-\
a4d4c0addda8"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{{3.806878568988739*^9, 3.8068785988698883`*^9}},
 CellLabel->
  "Out[120]=",ExpressionUUID->"9c32b348-70f1-4193-b2f3-afe83a0a14e5"],

Cell[BoxData[
 TemplateBox[{
  "RSet", "badval", 
   "\"The expression \\!\\(\\*StyleBox[RowBox[{\\\"d\\\", \\\"+\\\", \
\\\"e\\\", \\\"+\\\", \\\"f\\\"}], RGBColor[1, 0, 0], Rule[StripOnInput, \
False]]\\) is not convertable to R\"", 2, 121, 44, 23875729742189338118, 
   "Local", "RLink`RSet"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{{3.8068785925154657`*^9, 3.806878598881778*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[117]:=",ExpressionUUID->"6041ecab-c735-4488-\
903f-408d4eea8215"],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{{3.806878568988739*^9, 3.806878598900937*^9}},
 CellLabel->
  "Out[121]=",ExpressionUUID->"efdb288b-5a24-4895-a775-e2d089441cd3"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["REvaluate[]", "Subsection",
 CellChangeTimes->{{3.806878689733429*^9, 
  3.806878694199209*^9}},ExpressionUUID->"eae6746d-fd2c-4383-b424-\
0bf4641822a0"],

Cell["\:57fa\:672c\:8fd0\:884c", "Item",
 CellChangeTimes->{{3.806878863275137*^9, 
  3.806878866059372*^9}},ExpressionUUID->"6e3158c8-35da-4fe9-9ffb-\
8a4dad00545e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"REvaluate", "[", "\"\<rrResult1<-1+1\>\"", "]"}]], "Code",
 CellChangeTimes->{{3.806878744004032*^9, 3.806878781926992*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"96e565d2-f6af-401b-a437-c9482ec233f6"],

Cell[BoxData[
 RowBox[{"{", "2.`", "}"}]], "Output",
 CellChangeTimes->{3.806878828075191*^9},
 CellLabel->
  "Out[122]=",ExpressionUUID->"10e73d09-7729-4b22-aa2c-f3f1e508aa18"]
}, Closed]],

Cell["\:53ef\:4ee5\:58f0\:660e\:4e00\:4e2alibrary\:ff08\:5b98\:65b9\:7248\
\:5c31\:4e0d\:884c\:ff09", "Item",
 CellChangeTimes->{{3.806878879885305*^9, 
  3.80687889962092*^9}},ExpressionUUID->"47756be2-58dd-4d41-b532-\
5e9d4f5e9b80"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"REvaluate", "[", "\"\<library(pheatmap)\>\"", "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "\:8fd9\:4e2a\:5e93\:4e0d\:80fd\:771f\:6b63\:8fd0\:884c", "\:ff0c", 
    "\:539f\:56e0\:540e\:7eed\:4f1a\:63d0\:5230"}], "*)"}]}]], "Code",
 CellChangeTimes->{{3.806878919163381*^9, 3.806878942194536*^9}, {
  3.8068789799212923`*^9, 3.806878996741948*^9}, {3.806879056447185*^9, 
  3.806879117001692*^9}, {3.806879226958815*^9, 
  3.806879255075904*^9}},ExpressionUUID->"0d34897e-1cdc-4da5-b896-\
16deffe3292c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"pheatmap\"\>", ",", "\<\"stats\"\>", ",", "\<\"graphics\"\>", 
   ",", "\<\"grDevices\"\>", ",", "\<\"utils\"\>", ",", "\<\"datasets\"\>", 
   ",", "\<\"methods\"\>", ",", "\<\"base\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.806878943093873*^9, {3.806878985162579*^9, 3.8068789980786943`*^9}, {
   3.806879049665059*^9, 3.806879068487558*^9}, {3.806879099428351*^9, 
   3.806879117651795*^9}},
 CellLabel->
  "Out[130]=",ExpressionUUID->"0dcfc2ab-ccf2-466b-9978-202f74a5070b"]
}, Closed]],

Cell["\:4f7f\:7528\:5927\:62ec\:53f7\:6765\:8fdb\:884c\:591a\:884c\:6307\:4ee4\
\:8fd0\:7b97", "Item",
 CellChangeTimes->{{3.8068791364565477`*^9, 3.8068791396687937`*^9}, {
  3.806879171520307*^9, 3.806879177385384*^9}, {3.806879210576397*^9, 
  3.8068792150312643`*^9}},ExpressionUUID->"d4da7382-9cf2-451d-8295-\
825c01cedfc0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"REvaluate", "[", 
  "\"\<{\nrvV1<-1;\nrvV2<-2;\nrvV3<-3;\nrvV1+rvV2+rvV3\n}\>\"", "]"}]], "Code",\

 CellChangeTimes->{{3.806879272241188*^9, 3.806879350148533*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"2e04200c-f026-4901-9269-c7a2e4d853e2"],

Cell[BoxData[
 RowBox[{"{", "6.`", "}"}]], "Output",
 CellChangeTimes->{{3.806879332887792*^9, 3.806879352175913*^9}},
 CellLabel->
  "Out[132]=",ExpressionUUID->"6b49c304-4985-46e1-a5f7-93b9340a9ee4"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["RFunciton[]", "Subsection",
 CellChangeTimes->{{3.806879570384883*^9, 
  3.8068795848344307`*^9}},ExpressionUUID->"040de42c-618f-466f-a6f7-\
ca3632a2b6f7"],

Cell[CellGroupData[{

Cell["\:4f7f\:7528REvaluate\:548cRFunction\:7684\:533a\:522b", "Item",
 CellChangeTimes->{{3.806879596486567*^9, 
  3.806879638750436*^9}},ExpressionUUID->"be2d143a-b0ba-43c4-a123-\
29f40576a4e5"],

Cell["REvaluate", "Subitem",
 CellChangeTimes->{{3.806879737024569*^9, 
  3.806879739237007*^9}},ExpressionUUID->"035a22bb-242f-4e88-982d-\
639fb6412a62"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"fFunEva", "=", 
  RowBox[{
  "REvaluate", "[", "\"\<rfFunEva<-function(vec) vec^2\>\"", "]"}]}], "\n", 
 RowBox[{"fFunEva", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], "\n", 
 RowBox[{"REvaluate", "[", "\"\<rfFunEva(c(1,2,3,4))\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"REvaluate", "[", "\"\<rfFunEva\>\"", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], 
  "]"}]}], "Code",
 CellChangeTimes->{{3.8068796431700172`*^9, 3.8068797966320143`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"c71c0927-8638-42d4-847a-c8cd3059e920"],

Cell[BoxData[
 RowBox[{"RFunction", "[", 
  RowBox[{"\<\"closure\"\>", ",", 
   RowBox[{"RCode", "[", "\<\"function (vec) \\nvec^2\"\>", "]"}], ",", "1", 
   ",", 
   RowBox[{"RAttributes", "[", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.806879797692211*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"4adbefc2-bbac-40c0-be5f-3da78b7c34be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.`", ",", "4.`", ",", "9.`"}], "}"}]], "Output",
 CellChangeTimes->{3.806879797712706*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"30988626-a6ba-4183-b988-ee04ad09a82e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.`", ",", "4.`", ",", "9.`", ",", "16.`"}], "}"}]], "Output",
 CellChangeTimes->{3.8068797977259693`*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"16374303-cb46-4db8-b3b5-d7aaf98b7d7e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.`", ",", "4.`", ",", "9.`", ",", "16.`", ",", "25.`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.806879797739279*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"68d0510b-83ac-47a3-9741-c0e04b754677"]
}, Closed]],

Cell["RFunction", "Subitem",
 CellChangeTimes->{{3.806879824144622*^9, 
  3.806879844634145*^9}},ExpressionUUID->"30fe82ef-00b8-4897-85d8-\
452de7b08b7f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"fFunFun", "=", 
  RowBox[{
  "RFunction", "[", "\"\<rfFunFun<-function(vec) vec^2\>\"", "]"}]}], "\n", 
 RowBox[{"fFunFun", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "Code",
 CellChangeTimes->{{3.806879852523905*^9, 3.80687990024804*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"eb0ceeaa-3ff0-4b9a-bc9b-7fc7ff9c0111"],

Cell[BoxData[
 RowBox[{"RFunction", "[", 
  RowBox[{"\<\"closure\"\>", ",", 
   RowBox[{"RCode", "[", "\<\"rfFunFun<-function(vec) vec^2\"\>", "]"}], ",", 
   "Automatic", ",", 
   RowBox[{"RAttributes", "[", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.806879905475584*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"ca074534-7d5d-44cc-aeb2-fe6d9a283582"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.`", ",", "4.`", ",", "9.`"}], "}"}]], "Output",
 CellChangeTimes->{3.806879905492365*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"35343df8-4c0e-4f3b-b326-05ac5453b1dd"]
}, Closed]],

Cell["\:5bf9\:6bd4", "Subitem",
 CellChangeTimes->{
  3.806879920806913*^9},ExpressionUUID->"181ae264-dfca-4163-b105-\
c6e382d17561"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fFunFun", "/@", 
   RowBox[{"Range", "/@", 
    RowBox[{"Range", "@", "100"}]}]}], "//", "AbsoluteTiming"}], "\n", 
 RowBox[{
  RowBox[{"fFunEva", "/@", 
   RowBox[{"Range", "/@", 
    RowBox[{"Range", "@", "100"}]}]}], "//", "AbsoluteTiming"}]}], "Code",
 CellChangeTimes->{{3.806879938660778*^9, 3.806880046009953*^9}, {
  3.8068801291215897`*^9, 3.806880333821433*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"b3f5275a-861c-4494-8243-6d2e758c34ab"],

Cell["\:5e38\:7528\:51fd\:6570\:5c31\:4f7f\:7528RFunction\:5427", \
"SubsubitemParagraph",
 CellChangeTimes->{{3.8068803538242207`*^9, 
  3.80688038083809*^9}},ExpressionUUID->"0b6bdec9-29c5-44e2-9afa-\
fbc90249760c"]
}, Closed]],

Cell[CellGroupData[{

Cell["\:4f7f\:7528R\:5305\:6570\:636e\:5e93", "Subsection",
 CellChangeTimes->{{3.806885582819995*^9, 
  3.8068855912715187`*^9}},ExpressionUUID->"ac94080c-6655-4c4b-b58e-\
d353d404f0e0"],

Cell["\:9700\:8981\:5148\:5c06R\:5305\:5728R\:4e2d\:5b89\:88c5\:5b8c\:6210\
\:ff0c\:4e4b\:540e\:5728RLink\:4e2d\:5f15\:7528", "Text",
 CellChangeTimes->{{3.80688560344326*^9, 
  3.8068856292296333`*^9}},ExpressionUUID->"4ff4c635-942a-47e2-b49c-\
8ab3e51d76d5"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"823b1cd1-316c-44e6-8bf2-80ea16917425"],

Cell[CellGroupData[{

Cell["\:5982\:4f55\:66f4\:9ad8\:6548\:7684\:4f7f\:7528RLink\:ff1f", "Section",
 CellChangeTimes->{{3.806880578876823*^9, 
  3.806880592343795*^9}},ExpressionUUID->"c6424283-156a-4fd0-a9f2-\
60c93f6190a5"],

Cell[CellGroupData[{

Cell["\:5b98\:65b9\:7ed9\:51fa\:7684\:5efa\:8bae", "Subsection",
 CellChangeTimes->{{3.8068808283722277`*^9, 
  3.806880834006863*^9}},ExpressionUUID->"d18597b4-3e23-4ba1-b756-\
4aab2c462b9e"],

Cell["\:80fd\:7528RVector\:5c31\:4e0d\:7528RList", "Item",
 CellChangeTimes->{{3.8068808976364117`*^9, 
  3.8068809395537853`*^9}},ExpressionUUID->"76154bca-d8f6-4704-afa9-\
436a30f5abad"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{
     RowBox[{"ToRForm", "[", 
      RowBox[{"RandomInteger", "[", 
       RowBox[{"100", ",", "#"}], "]"}], "]"}], ";"}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"100", ",", "1000", ",", "10000", ",", 
    RowBox[{"10", "^", "5"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{
     RowBox[{"ToRForm", "[", 
      RowBox[{"RList", "[", 
       RowBox[{
        RowBox[{"RandomInteger", "[", 
         RowBox[{"100", ",", "#"}], "]"}], ",", 
        RowBox[{"RAttributes", "[", "]"}]}], "]"}], "]"}], ";"}], "]"}], 
   "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"100", ",", "1000", ",", "10000", ",", 
    RowBox[{"10", "^", "5"}]}], "}"}]}]}], "Code",
 CellChangeTimes->{{3.806881147564022*^9, 3.806881155601921*^9}},
 CellLabel->
  "In[171]:=",ExpressionUUID->"3a1222aa-d892-4508-8bf2-549be8909b75"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.002359`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.000211`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.007732`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.021671`", ",", "Null"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8068811570911913`*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"762681bf-9664-4bb9-a897-916f197818b5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.007027`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.035731`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.313194`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.903036`", ",", "Null"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.806881160319462*^9},
 CellLabel->
  "Out[172]=",ExpressionUUID->"6db80c69-5edf-41a9-96e6-78cd6c44223d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:539f\:56e0\:662f\:4f7f\:7528\:5411\:91cf\:4f20\:8f93\:4f1a\:53d8\:5f97\
\:66f4\:52a0\:9ad8\:6548\:ff0c", "ItemParagraph",
 CellChangeTimes->{{3.806881210055294*^9, 
  3.806881214948863*^9}},ExpressionUUID->"58bee073-9951-4b6c-8197-\
8bf50b92ebae"],

Cell["\:5b83\:5c06\:5728\:5185\:90e8\:8868\:8fbe\:5f0f\:5c42\:9762\:66f4\:9ad8\
\:6548\:5730\:8f6c\:6362\:ff0c", "ItemParagraph",
 CellChangeTimes->{{3.806881210055294*^9, 
  3.806881216731835*^9}},ExpressionUUID->"f141619c-ea1d-4aed-95f1-\
79f0483b6698"],

Cell["\:4e5f\:56e0\:6b64\:4f1a\:66f4\:6709\:6548\:5730\:4f20\:8f93\:5230R\
\:ff0c", "ItemParagraph",
 CellChangeTimes->{{3.806881210055294*^9, 
  3.806881218618622*^9}},ExpressionUUID->"45103f51-da07-4b87-a26d-\
ff6df9f66c4a"],

Cell["\:5e76\:88abR\:66f4\:6709\:6548\:5730\:5904\:7406\:ff0c", \
"ItemParagraph",
 CellChangeTimes->{{3.806881210055294*^9, 
  3.806881220360577*^9}},ExpressionUUID->"b29ecc41-9a15-46fe-b51e-\
abddcd513e54"],

Cell["\:4e5f\:4f1a\:66f4\:6709\:6548\:5730\:4f20\:8f93\:56deWolfram\:8bed\
\:8a00\:3002", "ItemParagraph",
 CellChangeTimes->{
  3.806881210055294*^9},ExpressionUUID->"dadd3526-7b20-4e6e-9b05-\
e36e226b9c5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{
     RowBox[{"RList", "[", 
      RowBox[{
       RowBox[{"RandomInteger", "[", 
        RowBox[{"100", ",", "#"}], "]"}], ",", 
       RowBox[{"RAttributes", "[", "]"}]}], "]"}], ";"}], "]"}], "&"}], "/@", 
  
  RowBox[{"{", 
   RowBox[{"100", ",", "1000", ",", "10000", ",", 
    RowBox[{"10", "^", "5"}]}], "}"}]}]], "Code",
 CellChangeTimes->{{3.806882721449212*^9, 3.806882767177277*^9}, {
  3.806882813111964*^9, 3.806882828982326*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"ffd57b41-a7a2-42fa-9284-4196842f9322"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.00001`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8.`*^-6", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.000059`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.000626`", ",", "Null"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8068828135752993`*^9, 3.806882829387952*^9}},
 CellLabel->
  "Out[176]=",ExpressionUUID->"6bb31e93-3fd0-4954-bbd5-f7a6d18396f1"]
}, Open  ]],

Cell["\:5c3d\:91cf\:51cf\:5c11\:6570\:636e\:4e92\:4f20", "Item",
 CellChangeTimes->{{3.8068809651631947`*^9, 
  3.806880976022828*^9}},ExpressionUUID->"eac43cf4-253f-415d-8dc0-\
13227d4cda31"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vforms", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ToRForm", "[", 
      RowBox[{
       RowBox[{"RandomInteger", "[", 
        RowBox[{"100", ",", "#"}], "]"}], ";"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"100", ",", "1000", ",", "10000", ",", 
      RowBox[{"10", "^", "5"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{
     RowBox[{"RSet", "[", 
      RowBox[{"\"\<testVec\>\"", ",", "#"}], "]"}], ";"}], "]"}], "&"}], "/@",
   "vforms"}], "\n", 
 RowBox[{
  RowBox[{"lforms", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ToRForm", "[", 
      RowBox[{"RList", "[", 
       RowBox[{
        RowBox[{"RandomInteger", "[", 
         RowBox[{"100", ",", "#"}], "]"}], ",", 
        RowBox[{"RAttributes", "[", "]"}]}], "]"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"100", ",", "1000", ",", "2000"}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{
     RowBox[{"RSet", "[", 
      RowBox[{"\"\<testLst\>\"", ",", "#"}], "]"}], ";"}], "]"}], "&"}], "/@",
   "lforms"}]}], "Code",
 CellChangeTimes->{{3.806885305154005*^9, 3.806885424330903*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"60a16b7a-c816-4f45-a71b-557bc6aed860"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.001525`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.001187`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.001383`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.001157`", ",", "Null"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.806885369780786*^9, 3.806885387955182*^9}, 
   3.806885426066688*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"8e79b8d5-2c36-43bf-a335-6516ffa1076c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.151551`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.080382`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.648621`", ",", "Null"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.806885369780786*^9, 3.806885387955182*^9}, 
   3.8068854340479107`*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"6f179960-51fc-4e9a-810d-b61bc44d31a9"]
}, Closed]],

Cell["\:51cf\:5c11R\:51fd\:6570\:6267\:884c\:7684\:603b\:6570", "Item",
 CellChangeTimes->{{3.806881000571004*^9, 
  3.806881009461562*^9}},ExpressionUUID->"8448dfdb-0078-47ab-81f8-\
ac92b4be5f99"],

Cell[TextData[{
 StyleBox["\:603b\:7ed3\:6765\:8bf4\:ff1a",
  FontColor->RGBColor[1, 0, 0]],
 "\:6570\:636e\:5bc6\:96c6\:578b\:5de5\:4f5c\:7531R\:5b8c\:6210\:ff0c\:5c06R\
\:7684\:7ed3\:679c\:6709\:6548\:4f20\:8f93\:56de\:6765"
}], "Text",
 CellChangeTimes->{{3.8068810515772448`*^9, 
  3.806881089011537*^9}},ExpressionUUID->"ba519a55-c903-4a08-843d-\
8a9df522a560"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
\:6211\:7684\:5efa\:8bae\:ff1a\:4ece\:6d41\:7a0b\:4e0a\:4f18\:5316\:5e76\:5728\
\:9002\:5f53\:60c5\:51b5\:4e0b\:4f7f\:7528RLink\
\>", "Subsection",
 CellChangeTimes->{{3.806880844146454*^9, 
  3.806880878398275*^9}},ExpressionUUID->"b2e4c751-349d-480c-8b2d-\
e946454a7490"],

Cell[CellGroupData[{

Cell["\:4e00\:4e2a\:5efa\:8bae\:7684\:6d41\:7a0b", "Item",
 CellChangeTimes->{{3.806885216515799*^9, 
  3.8068852320799*^9}},ExpressionUUID->"10c54f9f-4f44-4307-b1de-fcfe2f3b62b8"],

Cell["1\:5bfc\:5165\:5f85\:5904\:7406\:7684\:6570\:636e", "ItemParagraph",
 CellChangeTimes->{{3.806885459343357*^9, 
  3.806885474038701*^9}},ExpressionUUID->"1b0d04f1-1156-4915-b5e6-\
fb4057aea227"],

Cell["2\:5c06\:5f85\:5904\:7406\:7684\:6570\:636e\:505a\:9884\:5904\:7406", \
"ItemParagraph",
 CellChangeTimes->{{3.806885459343357*^9, 
  3.806885503215439*^9}},ExpressionUUID->"e118a41a-865c-432b-b3b1-\
9ef0c9430951"],

Cell["3\:914d\:7f6eR\:5305", "ItemParagraph",
 CellChangeTimes->{{3.806885459343357*^9, 3.8068855117939243`*^9}, 
   3.806885545808975*^9},ExpressionUUID->"3b6e8428-c64a-47b8-8c86-\
dc2dc0f38079"],

Cell["4\:5c06\:9884\:5904\:7406\:540e\:7684\:6570\:636e\:5bfc\:5165R", \
"ItemParagraph",
 CellChangeTimes->{{3.806885459343357*^9, 
  3.8068855144564333`*^9}},ExpressionUUID->"2a4c3075-8be9-4123-810c-\
2bff1b13473f"],

Cell["5\:4f7f\:7528R\:5305\:8fdb\:884c\:96c6\:6210\:8fd0\:7b97", \
"ItemParagraph",
 CellChangeTimes->{{3.806885459343357*^9, 3.806885543725562*^9}, {
  3.8068857351789217`*^9, 
  3.8068857351834087`*^9}},ExpressionUUID->"d0c9a118-f17e-4bf9-98e0-\
0f97b129e12b"],

Cell["6\:5c06R\:5305\:5904\:7406\:597d\:7684\:6570\:636e\:5bfc\:51fa\:ff08\
\:53ef\:4ee5\:628aR\:5217\:8868\:586b\:5145\:6210R\:5411\:91cf\:5bfc\:51fa\
\:ff09", "ItemParagraph",
 CellChangeTimes->{{3.806885459343357*^9, 3.806885543725562*^9}, {
  3.806885737927681*^9, 
  3.806885788476604*^9}},ExpressionUUID->"e2ff7f4f-6202-4148-ab94-\
2f7342e426b9"],

Cell["7MMA\:8fdb\:884c\:6570\:636e\:7684\:5c55\:793a\:5de5\:4f5c\:ff08MMA\
\:5f3a\:9879\:ff09", "ItemParagraph",
 CellChangeTimes->{{3.806885459343357*^9, 3.806885543725562*^9}, {
  3.806885737927681*^9, 3.806885767810165*^9}, {3.8068859190805473`*^9, 
  3.806885924608329*^9}},ExpressionUUID->"6b9a92d7-19ae-4b8b-93c9-\
df77c1529e51"]
}, Open  ]],

Cell["R-Link\:4ecd\:7136\:5b58\:5728\:8bb8\:591a\:56fa\:6709\:95ee\:9898", \
"Subsubsection",
 CellChangeTimes->{{3.806885948054368*^9, 
  3.806885973600749*^9}},ExpressionUUID->"4a6cdc44-b6b3-4961-a725-\
5a9c16a33791"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"ce38ad21-4134-4ab8-b417-bb9d85d5cfa0"],

Cell[CellGroupData[{

Cell["\:603b\:7ed3", "Section",
 CellChangeTimes->{{3.806886031550082*^9, 
  3.806886034963769*^9}},ExpressionUUID->"9387f4cc-8e79-4024-87c4-\
8d5a6cdf0358"],

Cell[CellGroupData[{

Cell["\:4f7f\:7528RLink\:7684\:4f18\:52bf", "Subsection",
 CellChangeTimes->{{3.806886193491042*^9, 
  3.806886200112659*^9}},ExpressionUUID->"4a54b97e-1979-4eae-b9e6-\
696d37b5fde3"],

Cell[CellGroupData[{

Cell["\:62d3\:5c55\:4e86MMA\:7684\:5de5\:5177\:5305\:ff0c\:5728\:5f3a\:5f3a\
\:8054\:5408\:4e0b\:ff0c\:80fd\:591f\:5e2e\:52a9\:6211\:4eec\:89e3\:51b3\:66f4\
\:591a\:7684\:95ee\:9898", "Item",
 CellChangeTimes->{{3.8068862352574253`*^9, 
  3.806886258884985*^9}},ExpressionUUID->"2852c942-70e8-4a37-8419-\
274b1f4fbcc3"],

Cell["\:62d3\:5c55\:4e86\:4e1a\:52a1\:8303\:56f4\:ff0c\:53ef\:4ee5\:7ed3\:4ea4\
\:5230\:66f4\:591a\:7684\:4f19\:4f34", "Item",
 CellChangeTimes->{{3.8068862352574253`*^9, 3.8068862543111343`*^9}, {
  3.806886285840156*^9, 
  3.806886302735118*^9}},ExpressionUUID->"61f0a500-0928-4d7c-8f6f-\
1c79ced0f89f"],

Cell["\:80fd\:591f\:66f4\:597d\:7684\:89e3\:51b3\:76f8\:5173\:4e13\:4e1a\:7684\
\:95ee\:9898\:ff0c\:4f18\:52bf\:4e92\:8865", "Item",
 CellChangeTimes->{{3.8068862352574253`*^9, 3.8068862543111343`*^9}, {
  3.806886285840156*^9, 
  3.806886326092989*^9}},ExpressionUUID->"e2b56826-54d0-4d5b-956a-\
7fa36036f88e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:4f7f\:7528RLink\:7684\:52a3\:52bf", "Subsection",
 CellChangeTimes->{{3.8068862084771757`*^9, 
  3.8068862125126677`*^9}},ExpressionUUID->"10fee7f8-1a97-48c8-90fb-\
1b20508165e0"],

Cell[CellGroupData[{

Cell["RLink\:57fa\:4e8eJAVA\:642d\:5efa\:800c\:6210\:ff0c\:6709\:65f6\:5019\
\:4e0d\:592a\:7a33\:5b9a\:ff08\:517b\:6210\:591a\:591a\:4fdd\:5b58\:7684\:597d\
\:4e60\:60ef\:ff09", "Item",
 CellChangeTimes->{{3.806886334930827*^9, 
  3.8068863690673733`*^9}},ExpressionUUID->"d06bdbac-9422-413a-bb8f-\
0ed602e063d2"],

Cell["\<\
RLink\:53ea\:80fd\:4f20\:8f93\:6709\:9650\:7684\:6570\:636e\:7c7b\:578b\:ff0c\
\:50cfR\:7684\:751f\:6210\:56fe\:7247\:529f\:80fd\:5565\:7684\:ff0c\:7528\
\:8d77\:6765\:6ca1\:90a3\:4e48\:65b9\:4fbf\:ff08\:751f\:6210\:56fe\:7247\:5f80\
\:5f80\:662f\:6700\:540e\:4e00\:6b65\:ff0c\:53ef\:4ee5\:76f4\:63a5\:5728R\
\:91cc\:4f7f\:7528\:ff0c\:95ee\:9898\:4e0d\:5927\:ff09\
\>", "Item",
 CellChangeTimes->{{3.806886334930827*^9, 
  3.806886437312307*^9}},ExpressionUUID->"92f77ffa-f859-44ac-a66f-\
dfed86265f81"],

Cell["\:53ef\:80fd\:9700\:8981\:5b66\:4e60\:4e00\:95e8\:65b0\:7684\:8bed\:8a00\
", "Item",
 CellChangeTimes->{{3.806886334930827*^9, 
  3.806886449801436*^9}},ExpressionUUID->"de9a515e-1aab-491e-9b35-\
2e8d31d027f8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["RLink\:7684\:5b89\:88c5", "Subsection",
 CellChangeTimes->{{3.806886569784466*^9, 3.806886579291561*^9}, {
  3.8068867115353107`*^9, 
  3.806886712073514*^9}},ExpressionUUID->"14766436-baf0-4517-8d8c-\
651039dde302"],

Cell[CellGroupData[{

Cell["\:5bf9\:4e8ewindows\:7cfb\:7edf\:6765\:8bf4\:ff0c\:53ef\:4ee5\:4f7f\
\:7528\:5b98\:65b9\:5b89\:88c5\:5305", "ItemParagraph",
 CellChangeTimes->{{3.8068865989514103`*^9, 
  3.806886612237053*^9}},ExpressionUUID->"6c173be1-612b-4a9a-98b2-\
7c6c63230c18"],

Cell["\<\
\:5bf9\:4e8emac \
os\:6765\:8bf4\:ff0c\:53ef\:4ee5\:4f7f\:7528\:4e0a\:6587\:63d0\:5230\:7684\
\:5c0f\:6280\:5de7\
\>", "ItemParagraph",
 CellChangeTimes->{{3.8068865989514103`*^9, 
  3.806886629471602*^9}},ExpressionUUID->"a7e7c4e9-8314-4d9f-a3d0-\
967024d884e6"],

Cell["\:5bf9\:4e0eLinux\:7528\:6237\:6765\:8bf4\:ff0c\:6211\:4f1a\:5728\:540e\
\:7eed\:7684\:6587\:7ae0\:4e2d\:63d0\:5230", "ItemParagraph",
 CellChangeTimes->{{3.8068865989514103`*^9, 
  3.806886664296883*^9}},ExpressionUUID->"ca51a923-b7f8-4160-a3ba-\
0d3f8eba723c"],

Cell["R\:5305\:5728\:5b89\:88c5\:524d\:8981\:5728R\:8bed\:8a00\:4e2d\:5148\
\:5b89\:88c5", "ItemParagraph",
 CellChangeTimes->{{3.8068865989514103`*^9, 
  3.806886685290194*^9}},ExpressionUUID->"2901d1d1-999d-479a-b1aa-\
46f6c2568d65"],

Cell["\<\
\:6700\:597d\:5b89\:88c5\:6700\:65b0\:7248\:672c\:ff08R3.5\:4ee5\:4e0a\:7248\
\:672c\:ff09\
\>", "ItemParagraph",
 CellChangeTimes->{{3.8068865989514103`*^9, 
  3.8068866989492273`*^9}},ExpressionUUID->"f201baee-41dc-42f6-8bb2-\
969622b1bab5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["RLink\:7684\:4f7f\:7528\:548c\:5efa\:8bae", "Subsection",
 CellChangeTimes->{{3.806886727703874*^9, 3.806886731119762*^9}, {
  3.8068867772419567`*^9, 
  3.806886778324669*^9}},ExpressionUUID->"462de189-e0ee-4462-a7cc-\
af006fd54700"],

Cell[CellGroupData[{

Cell["RSet\:3001REvaluate\:3001RFunction", "ItemParagraph",
 CellChangeTimes->{{3.8068867435234833`*^9, 
  3.806886763324347*^9}},ExpressionUUID->"a4e8a09d-e446-45cc-9bd1-\
e80a724eab54"],

Cell["\:51cf\:5c11\:6570\:636e\:4ea4\:4e92\:3001\:51cf\:5c11RList\:7684\:4f7f\
\:7528\:3001\:5728\:96c6\:4e2d\:5904\:7406\:5927\:91cf\:6570\:636e\:65f6\:4f7f\
\:7528", "ItemParagraph",
 CellChangeTimes->{{3.8068867435234833`*^9, 
  3.806886837445869*^9}},ExpressionUUID->"bd7b2650-110c-499e-8dec-\
b5aee51d5bb5"],

Cell["\:7528MMA\:7684\:5f3a\:5927\:7684\:7ed8\:56fe\:529f\:80fd\:8fdb\:884c\
\:6700\:540e\:7684\:5c55\:793a", "ItemParagraph",
 CellChangeTimes->{{3.8068867435234833`*^9, 
  3.806886855638123*^9}},ExpressionUUID->"6b3abbf6-a3dc-4000-8aa4-\
3a3a95c6140d"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"7e3fd377-8fe3-4278-8343-7ce8cfc70e0a"],

Cell[CellGroupData[{

Cell["\:5199\:5728\:6700\:540e", "Section",
 CellChangeTimes->{{3.80688691644725*^9, 
  3.8068869177811537`*^9}},ExpressionUUID->"e62c40ee-86ae-44fd-9a25-\
5167b43e3f41"],

Cell["\:611f\:8c22Wolfram Language\:63d0\:4f9b\:7684RLink\:652f\:6301", \
"Subsection",
 CellChangeTimes->{{3.8068869262141523`*^9, 
  3.806886960300655*^9}},ExpressionUUID->"e78c577c-2ea7-40ae-b749-\
bd4ec2405d3b"],

Cell["\<\
\:611f\:8c22\:5fb7\:56fd\:5c0f\:54e5 Szabolcs Horv\[AAcute]t
\:548c\:70ed\:5fc3\:7f51\:53cbIlian Gachevski\
\>", "Subsection",
 CellChangeTimes->{{3.806886979740716*^9, 3.8068869925443707`*^9}, 
   3.8068870393690357`*^9, {3.806887086361034*^9, 
   3.806887122940812*^9}},ExpressionUUID->"1b32a0f3-1f40-483c-b9db-\
10e8627da50c"],

Cell[CellGroupData[{

Cell["\<\
\:611f\:8c22\:5728\:5ea7\:7684\:5404\:4f4d\:542c\:4f17\:ff0c\:8c22\:8c22\:4f60\
\:4eec\:7684\:5174\:8da3\:ff0c
\:5728\:672a\:6765\:4f1a\:5e94\:7528MMA\:5904\:7406\:751f\:7269\:4fe1\:606f\
\:5b66\:7684\:5927\:4f19\:513f\:ff0c\:6211\:4eec\:5171\:540c\:8fdb\:6b65\
\[AliasDelimiter]\
\>", "Subsection",
 CellChangeTimes->{{3.806887131743148*^9, 3.806887205995843*^9}, 
   3.8068898074504538`*^9},ExpressionUUID->"221b0320-158a-4170-88d1-\
c90f2994f673"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.806889250335103*^9, 
  3.806889251842638*^9}},ExpressionUUID->"2e16c9ee-c0bd-4e24-a06e-\
9f260b0d5891"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\:8c22\:8c22\:5927\:5bb6", 
    RowBox[{"\[AliasDelimiter]", 
     FractionBox["\[Placeholder]", "\[Placeholder]"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "12b32fde-8857-418b-9ba1-d092733a8463"],
 " \:ff09"
}], "Chapter",
 CellChangeTimes->{{3.806889272421218*^9, 
  3.80688935732987*^9}},ExpressionUUID->"6eade657-2380-4b29-aed8-\
fa64798e88b2"]
}, Open  ]]
},
ScreenStyleEnvironment->"Slideshow Working",
WindowSize->{676, 847},
WindowMargins->{{338, Automatic}, {107, Automatic}},
TaggingRules->{
 "PresenterSettings" -> {
   "ShowNavigationBar" -> False, 
    "SlideBreakStyles" -> {"Title", "Chapter", "Section"}, "ShowSlideBreaks" -> 
    True, "Theme" -> {
     "ThemeName" -> "Facet", "FontSetName" -> "Facet", "ColorSetName" -> 
      "Default"}, "WindowSize" -> {676, 847}, 
    "WindowMargins" -> {{338, 743}, {107, 121}}, "Dialogs" -> {}}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
(2020\:5e743\:670820\:65e5)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> 
     FrontEnd`FileName[{"PresenterTools"}, "Facet.nb", CharacterEncoding -> 
       "UTF-8"]]], 
   Cell[
    StyleData["Notebook"], 
    StyleHints -> {
     ParentList, "CodeFont" -> "Source Code Pro", 
      "ColorSet" -> {
       "Display1" -> RGBColor[0.866667, 0.0666667, 0], "Display2" -> 
        RGBColor[0.67, 0.0666667, 0], "Display3" -> 
        RGBColor[0.67, 0.0666667, 0], "Text1" -> GrayLevel[0.1], "Text2" -> 
        GrayLevel[1], "Text3" -> GrayLevel[0], "Text1Reverse" -> 
        GrayLevel[0.75], "Text2Reverse" -> GrayLevel[0.75], "Text3Reverse" -> 
        GrayLevel[0.75], "Dingbat" -> RGBColor[0.866667, 0.0666667, 0], 
        "Default" -> GrayLevel[0.1], "Background" -> GrayLevel[1]}, 
      "FontSet" -> {
       "Display1" -> "Source Sans Pro", "Display2" -> "Source Sans Pro", 
        "Display3" -> "Source Sans Pro", "Text1" -> "Source Sans Pro", 
        "Text2" -> "Source Sans Pro", "Text3" -> "Source Sans Pro", "Dingbat" -> 
        "Source Sans Pro", "Default" -> "Source Sans Pro"}, 
      "SlideBreakStyles" -> {}}], 
   Cell[
    StyleData["FirstSlide"], 
    PrivateCellOptions -> {
     "PagewiseNotebookBaseStyle" -> {
       BackgroundAppearance -> 
        FrontEnd`FileName[{"PresenterTools"}, 
          "Background-Facet-Default.png"]}}], 
   Cell[
    StyleData["Title"], FontSize -> 36, FontWeight -> "Bold", FontTracking -> 
    "Plain", FontVariations -> {"CapsType" -> "Normal"}], 
   Cell[
    CellGroupData[{
      Cell["Section", "Subsection"], 
      Cell[
       StyleData["Section"], FontTracking -> "Plain", 
       FontVariations -> {"CapsType" -> "Normal"}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsection"], FontTracking -> "Plain", 
          FontVariations -> {"CapsType" -> "Normal"}], 
         Cell[
          StyleData["Subsection", "Slideshow Working"], FontSize -> 
          Dynamic[0.029 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]]], 
         Cell[
          StyleData["Subsection", "Slideshow Presentation"], FontSize -> 
          Dynamic[0.029 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]]]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsection"], FontTracking -> "Plain", 
          FontVariations -> {"CapsType" -> "Normal"}], 
         Cell[
          StyleData["Subsubsection", "Slideshow Working"], FontSize -> 
          Dynamic[0.026 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]], 
          FontWeight -> "DemiBold"], 
         Cell[
          StyleData["Subsubsection", "Slideshow Presentation"], FontSize -> 
          Dynamic[0.026 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]], 
          FontWeight -> "DemiBold"], 
         Cell[
          StyleData["Subsubsubsection", "Slideshow Working"], FontSize -> 
          Dynamic[0.026 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]], 
          FontWeight -> "DemiBold", FontTracking -> "Plain"], 
         Cell[
          StyleData["Subsubsubsection", "Slideshow Presentation"], FontSize -> 
          Dynamic[0.026 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]], 
          FontWeight -> "DemiBold", FontTracking -> "Plain"], 
         Cell[
          StyleData["Subsubsubsubsection", "Slideshow Working"], FontSize -> 
          Dynamic[0.026 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]]], 
         Cell[
          StyleData["Subsubsubsubsection", "Slideshow Presentation"], 
          FontSize -> 
          Dynamic[0.026 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]]]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputOnly"], FontSize -> 13], 
         Cell[
          StyleData["InputOnly", "SlideShow"], 
          CellMargins -> {{100, 10}, {8, 15}}], 
         Cell[
          StyleData["InputOnly", "Slideshow Working"], CellMargins -> 
          Dynamic[{{
             0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 
              FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {
             0.00992593 FrontEnd`AbsoluteCurrentValue[{WindowSize, 2}], 
              0.0186111 FrontEnd`AbsoluteCurrentValue[{WindowSize, 2}]}}], 
          LinebreakAdjustments -> {1, 2., 12., 1., 1.}, FontSize -> 
          Dynamic[0.019 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]]], 
         Cell[
          StyleData[
          "InputOnly", "Slideshow Presentation", StyleDefinitions -> 
           StyleData["InputOnly", "Slideshow Working"]]], 
         Cell[
          StyleData[
          "InputOnly", "Scrolling Presentation", StyleDefinitions -> 
           StyleData["InputOnly", "Slideshow Working"]]], 
         Cell[
          StyleData["InputOnly", "Printout"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, 
          LinebreakAdjustments -> {0.85, 2, 10, 1, 1}]}, Open]]}, Open]]}, 
  Visible -> False, FrontEndVersion -> 
  "12.1 for Mac OS X x86 (64-bit) (2020\:5e743\:670820\:65e5)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"d5adf38f-90c3-43ca-97a4-e02e92d3587d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[580, 22, 169, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"ae861ed8-5fa1-4088-84fd-2651cc7b368a",
   CellTags->"SlideShowHeader"],
  Cell[7932, 174, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"ee3ea2a1-973b-4e9a-a704-0d8a3c30d1be",
   CellTags->"SlideShowHeader"],
  Cell[11742, 265, 188, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"4e8e5a7c-8b4e-47e7-a75d-3cb2b655ed51",
   CellTags->"SlideShowHeader"],
  Cell[17968, 409, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"876955d7-7c08-4a9b-b335-e62f32462524",
   CellTags->"SlideShowHeader"],
  Cell[24795, 584, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"e80e9091-b57e-43c0-9bfb-7624bc8590ad",
   CellTags->"SlideShowHeader"],
  Cell[53768, 1158, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"d0653087-e6fc-4117-98fa-618b3d35e3ba",
   CellTags->"SlideShowHeader"],
  Cell[59414, 1305, 136, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"f54e7681-3009-4b1a-8048-c5eb15bf863a",
   CellTags->"SlideShowHeader"],
  Cell[59575, 1311, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"095e1d23-85e5-4b14-bf86-0affd2ac9e55",
   CellTags->"SlideShowHeader"],
  Cell[76179, 1813, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"823b1cd1-316c-44e6-8bf2-80ea16917425",
   CellTags->"SlideShowHeader"],
  Cell[86850, 2136, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"ce38ad21-4134-4ab8-b417-bb9d85d5cfa0",
   CellTags->"SlideShowHeader"],
  Cell[92378, 2295, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"7e3fd377-8fe3-4278-8343-7ce8cfc70e0a",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 100184, 2488}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 169, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"ae861ed8-5fa1-4088-84fd-2651cc7b368a",
 CellTags->"SlideShowHeader"],
Cell[752, 27, 329, 5, 295, "Title",ExpressionUUID->"8b1642a0-c2f2-4832-b962-da68c26a4047"],
Cell[1084, 34, 282, 6, 79, "Subtitle",ExpressionUUID->"75c0d664-a0db-4889-a1b0-650f7c83e5d8"],
Cell[1369, 42, 6526, 127, 95, "Subtitle",ExpressionUUID->"82304148-2048-4796-ab46-715a0d811c28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7932, 174, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"ee3ea2a1-973b-4e9a-a704-0d8a3c30d1be",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[8079, 180, 487, 9, 101, "Section",ExpressionUUID->"75e785bd-e551-42c4-b918-1ff722dfcee0"],
Cell[CellGroupData[{
Cell[8591, 193, 315, 5, 45, "Item",ExpressionUUID->"cb57478d-a8fc-45da-9439-0b25b485f28a"],
Cell[8909, 200, 289, 5, 45, "Item",ExpressionUUID->"b799cc88-1477-48d1-8e19-a4ae4130f766"],
Cell[9201, 207, 277, 4, 88, "Item",ExpressionUUID->"6c27b510-d85e-4e74-9221-263276471e2c"],
Cell[9481, 213, 340, 5, 88, "Item",ExpressionUUID->"468b77d3-c892-4999-bd6e-efd2bfeafff5"],
Cell[9824, 220, 316, 5, 88, "Item",ExpressionUUID->"1f8d2c12-fed1-4207-920c-4b7b3bc5dc97"],
Cell[10143, 227, 391, 6, 88, "Item",ExpressionUUID->"da07f454-70f3-42dc-b2cc-e7f82d776dd7"],
Cell[10537, 235, 695, 15, 88, "Item",ExpressionUUID->"04b357c5-0165-4d29-bd0a-92b30ac99362"],
Cell[11235, 252, 446, 6, 88, "Item",ExpressionUUID->"d5fe53aa-78b8-4bbc-8310-68d362c49053"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11742, 265, 188, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"4e8e5a7c-8b4e-47e7-a75d-3cb2b655ed51",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[11955, 272, 389, 8, 171, "Section",ExpressionUUID->"bf6b684b-be70-47c1-be5a-c3838a1d25c9"],
Cell[12347, 282, 292, 5, 88, "Text",ExpressionUUID->"e3496b69-6288-468f-9e29-a4ae76cf9733"],
Cell[12642, 289, 258, 4, 88, "Text",ExpressionUUID->"1eaa54c5-2ee2-48b2-928f-b6d9adb7b773"],
Cell[CellGroupData[{
Cell[12925, 297, 292, 5, 118, "Subsection",ExpressionUUID->"30bc9a16-b918-4d04-bceb-96ff1768b8b8"],
Cell[13220, 304, 1442, 23, 214, "Text",ExpressionUUID->"ad6ec621-e2d5-4417-b7ad-4f0729f69bd8"],
Cell[14665, 329, 154, 3, 75, "Input",ExpressionUUID->"21de5086-d403-49ab-8b3d-4ca63466be8e"],
Cell[14822, 334, 915, 18, 156, "Text",ExpressionUUID->"083361f4-3d65-49ec-95d9-eb8c106582f9"]
}, Closed]],
Cell[CellGroupData[{
Cell[15774, 357, 377, 8, 88, "Subsection",ExpressionUUID->"2b38a9ac-d77b-42bf-84f3-8db81b090d47"],
Cell[16154, 367, 755, 12, 151, "Text",ExpressionUUID->"423c0f38-12d8-4b17-b3a7-181a45f38dd7"]
}, Closed]],
Cell[CellGroupData[{
Cell[16946, 384, 341, 5, 88, "Subsection",ExpressionUUID->"2698af66-01a8-4f1d-95fe-b96d7bdb0a95"],
Cell[17290, 391, 617, 11, 214, "Text",ExpressionUUID->"e3069702-126f-4416-8e8f-7066e2283fd8"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17968, 409, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"876955d7-7c08-4a9b-b335-e62f32462524",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[18115, 415, 197, 3, 171, "Section",ExpressionUUID->"fae39314-12c3-44ef-ba40-760fd2cc4e70"],
Cell[18315, 420, 257, 4, 137, "Code",ExpressionUUID->"27cd7d48-74e8-4360-9814-4a8df2e3c371"],
Cell[18575, 426, 770, 17, 515, "Code",ExpressionUUID->"3aec2cfc-e196-4a4d-86fc-24c81a14109c"],
Cell[CellGroupData[{
Cell[19370, 447, 233, 4, 82, "Code",ExpressionUUID->"ba71c11a-45d8-457c-9e97-cca8ed68a0e2"],
Cell[19606, 453, 210, 4, 75, "Output",ExpressionUUID->"15e0d0e0-d6a5-4f80-a7c7-7b6baabdb7dc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19853, 462, 278, 4, 82, "Code",ExpressionUUID->"e5d9e0d0-02ba-402c-9874-ace1df72101b"],
Cell[20134, 468, 463, 7, 75, "Output",ExpressionUUID->"ecac54e9-7e0b-419f-ac42-1087fd024eec"]
}, Open  ]],
Cell[20612, 478, 234, 4, 88, "Text",ExpressionUUID->"917892e7-e1a1-4229-822a-ddc9d6300d39"],
Cell[CellGroupData[{
Cell[20871, 486, 538, 9, 461, "Code",ExpressionUUID->"0995e319-b28f-42c6-9a2d-99712bf992dd"],
Cell[21412, 497, 3322, 80, 562, "Output",ExpressionUUID->"75595265-c4b9-455f-919b-3be0380b1e36"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24795, 584, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"e80e9091-b57e-43c0-9bfb-7624bc8590ad",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[24942, 590, 379, 8, 171, "Section",ExpressionUUID->"22fb02b5-cbc0-4b90-9450-204f41a870fc"],
Cell[CellGroupData[{
Cell[25346, 602, 448, 8, 118, "Subsection",ExpressionUUID->"b8dd2ed9-c603-4928-9f37-2f6488d6c608"],
Cell[25797, 612, 216, 4, 82, "Code",ExpressionUUID->"ed9633cf-b9ff-4beb-8842-a3540653831c"],
Cell[26016, 618, 269, 5, 82, "Code",ExpressionUUID->"ea6520e0-f62c-4219-85c1-a2c15cbfa30a"],
Cell[26288, 625, 309, 6, 88, "Text",ExpressionUUID->"4b1b81e6-29d1-4bb3-9383-89692a3cc9d4"],
Cell[26600, 633, 204, 4, 82, "Code",ExpressionUUID->"c579d8fa-2f4f-47c8-96be-21932d73492f"],
Cell[26807, 639, 172, 3, 88, "Text",ExpressionUUID->"3b1d52a2-db51-4ec9-ad25-5dfb635fd054"],
Cell[CellGroupData[{
Cell[27004, 646, 216, 4, 82, "Code",ExpressionUUID->"c072a7e5-6639-4f7e-9005-f7df0bbed660"],
Cell[27223, 652, 22827, 399, 271, "Output",ExpressionUUID->"0be105cd-e30a-4c93-803c-4043ede4e076"]
}, Open  ]],
Cell[50065, 1054, 192, 3, 88, "Text",ExpressionUUID->"92abfb67-cfb2-4e74-879e-e8da1bbed7f8"],
Cell[50260, 1059, 257, 5, 82, "Code",ExpressionUUID->"c6972282-0313-4fd2-9f47-179bd03bce3a"],
Cell[50520, 1066, 173, 3, 88, "Text",ExpressionUUID->"416be541-137c-425f-b3b3-446a4b3f7249"],
Cell[CellGroupData[{
Cell[50718, 1073, 238, 4, 82, "Code",ExpressionUUID->"66f8c396-16c0-46bf-a837-5e1c52d4da5e"],
Cell[50959, 1079, 388, 9, 52, "Message",ExpressionUUID->"a1358852-ee7c-4b0d-9b36-f9ba656198a2"],
Cell[51350, 1090, 155, 2, 75, "Output",ExpressionUUID->"c9c7cbe9-08e3-4ab7-8e77-aa7008cab3fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51542, 1097, 357, 7, 84, "Subsubsection",ExpressionUUID->"2b38b412-6f5f-4fc5-8d41-2eed6cd289d7"],
Cell[CellGroupData[{
Cell[51924, 1108, 315, 5, 88, "Item",ExpressionUUID->"aa0765d4-6f21-48d7-a680-19f1fe03498f"],
Cell[52242, 1115, 289, 5, 88, "Item",ExpressionUUID->"510fce70-9b76-458c-baf5-815636f188cf"],
Cell[52534, 1122, 274, 5, 83, "Subitem",ExpressionUUID->"d7792245-a3d2-45d5-84fe-6214bc0aa104"]
}, Open  ]],
Cell[52823, 1130, 350, 8, 137, "Code",ExpressionUUID->"02a6d37a-258c-4d48-92e5-1f3f7686f2f6"],
Cell[53176, 1140, 274, 4, 88, "Text",ExpressionUUID->"3cd0649f-0450-46ca-b713-70951cb2847b"],
Cell[53453, 1146, 242, 4, 88, "Item",ExpressionUUID->"c2b7ec62-bedc-44cd-a431-42be5a7a4994"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[53768, 1158, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"d0653087-e6fc-4117-98fa-618b3d35e3ba",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[53915, 1164, 399, 9, 171, "Section",ExpressionUUID->"748d284b-6ee0-4ac7-9756-ff29a9b02b30"],
Cell[54317, 1175, 388, 7, 88, "Text",ExpressionUUID->"c0760fec-2c98-4e68-bfc9-10fb8c0c6fad"],
Cell[CellGroupData[{
Cell[54730, 1186, 306, 6, 88, "Item",ExpressionUUID->"5098a626-462b-4378-8875-b3e907d6f44a"],
Cell[55039, 1194, 186, 2, 77, "ItemParagraph",ExpressionUUID->"b9ca4f8d-6c14-4839-aaef-ea0ae3585581"],
Cell[55228, 1198, 289, 6, 77, "ItemParagraph",ExpressionUUID->"77b8a823-e4ae-4b5a-8343-80adf36bfc9a"],
Cell[55520, 1206, 226, 3, 88, "Item",ExpressionUUID->"63265c14-e833-4a7e-85cc-6e959af7ac0d"],
Cell[55749, 1211, 223, 4, 77, "ItemParagraph",ExpressionUUID->"018b294b-81e8-4229-96be-6a75ae0ddaba"],
Cell[55975, 1217, 199, 3, 77, "ItemParagraph",ExpressionUUID->"557074b9-0e3a-4da0-b705-125ef4d7b4cd"],
Cell[56177, 1222, 255, 4, 88, "Item",ExpressionUUID->"8ef4f0a2-8af5-433d-bcbf-8721c1331670"],
Cell[56435, 1228, 435, 7, 77, "ItemParagraph",ExpressionUUID->"6e51db44-33aa-42c0-a798-9d3b93aa33b1"],
Cell[56873, 1237, 335, 5, 77, "ItemParagraph",ExpressionUUID->"c50d33dd-33de-4cfc-973c-8ffb2e978687"]
}, Open  ]],
Cell[57223, 1245, 814, 20, 623, "Code",ExpressionUUID->"95ad9a03-7c16-4724-83cb-7aab716c1848"],
Cell[CellGroupData[{
Cell[58062, 1269, 466, 8, 199, "ItemParagraph",ExpressionUUID->"7c51334f-9772-41c1-b68b-1b99c6ad9bd5"],
Cell[58531, 1279, 263, 5, 45, "Item",ExpressionUUID->"26ba2a51-d511-42da-93ae-f5f62befb1af"]
}, Closed]],
Cell[CellGroupData[{
Cell[58831, 1289, 233, 4, 71, "Code",ExpressionUUID->"9c24254b-5ec2-4e33-938d-aa9af729e536"],
Cell[59067, 1295, 308, 5, 75, "Output",ExpressionUUID->"fc6f8bbb-957d-4ca2-abdb-53a1001dd559"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[59414, 1305, 136, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"f54e7681-3009-4b1a-8048-c5eb15bf863a",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[59575, 1311, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"095e1d23-85e5-4b14-bf86-0affd2ac9e55",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[59722, 1317, 191, 3, 171, "Section",ExpressionUUID->"0039860d-53df-47bf-8f08-21828ae6171b"],
Cell[CellGroupData[{
Cell[59938, 1324, 228, 4, 88, "Item",ExpressionUUID->"a70c4268-e104-4948-b5ba-b81ea2d23982"],
Cell[CellGroupData[{
Cell[60191, 1332, 241, 4, 43, "Subitem",ExpressionUUID->"f46b3c5f-c33b-49c2-83fe-dcbee83115a5"],
Cell[60435, 1338, 251, 4, 43, "Subitem",ExpressionUUID->"270f2625-9870-421e-803d-38970615822e"],
Cell[60689, 1344, 235, 4, 43, "Subitem",ExpressionUUID->"95f59a55-bf33-4c6f-8348-83929b0e5bd3"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[60973, 1354, 156, 3, 88, "Subsection",ExpressionUUID->"fbf003e5-02cd-400d-9b92-6a68547b9b48"],
Cell[61132, 1359, 166, 3, 88, "Item",ExpressionUUID->"42e64496-65cb-40b1-8738-1cee016ae179"],
Cell[CellGroupData[{
Cell[61323, 1366, 289, 6, 82, "Code",ExpressionUUID->"e657788b-21c0-4a2c-af10-764a402ad28f"],
Cell[61615, 1374, 149, 2, 41, "Output",ExpressionUUID->"2ea90fbc-553c-45e4-8095-48766551594c"]
}, Closed]],
Cell[CellGroupData[{
Cell[61801, 1381, 233, 3, 126, "Code",ExpressionUUID->"0164854b-8c86-417c-85bd-4b06d2f66e26"],
Cell[62037, 1386, 173, 2, 41, "Output",ExpressionUUID->"379ddac3-142c-49e0-aba2-33d94bf67e5e"],
Cell[62213, 1390, 195, 3, 41, "Output",ExpressionUUID->"3488b647-6243-489b-b452-f53a2ee2d10e"]
}, Closed]],
Cell[62423, 1396, 235, 4, 78, "Item",ExpressionUUID->"e7fed9a5-dcad-4b79-a372-1fed4a8dce51"],
Cell[CellGroupData[{
Cell[62683, 1404, 609, 15, 245, "Code",ExpressionUUID->"34918df1-0714-4c1b-9f10-b9bfcb79a394"],
Cell[63295, 1421, 559, 16, 75, "Output",ExpressionUUID->"64ee4136-4058-4fcd-84b6-60acd8d26430"],
Cell[63857, 1439, 561, 16, 75, "Output",ExpressionUUID->"e2e78d78-c37d-4dd8-aabf-431f05915b80"],
Cell[64421, 1457, 559, 16, 75, "Output",ExpressionUUID->"81da626c-8a7c-45c8-8fed-7601e6f5f75e"]
}, Open  ]],
Cell[64995, 1476, 217, 4, 88, "Item",ExpressionUUID->"c3118365-7c34-4737-891e-12a75fb19bba"],
Cell[CellGroupData[{
Cell[65237, 1484, 392, 8, 137, "Code",ExpressionUUID->"89021228-ca2d-40e6-8fe2-25cce39b8a98"],
Cell[65632, 1494, 276, 6, 75, "Output",ExpressionUUID->"33eb0e98-1764-4a0f-8f2d-ebf673f812bc"],
Cell[65911, 1502, 613, 17, 75, "Output",ExpressionUUID->"8b3ab4f5-720d-4fa3-9575-42c3ea694824"]
}, Open  ]],
Cell[66539, 1522, 294, 5, 149, "Item",ExpressionUUID->"7f648332-4c0d-464b-b460-f9943ffd8923"],
Cell[CellGroupData[{
Cell[66858, 1531, 581, 17, 299, "Code",ExpressionUUID->"924d6351-d076-41e8-bec4-a4d4c0addda8"],
Cell[67442, 1550, 179, 3, 75, "Output",ExpressionUUID->"9c32b348-70f1-4193-b2f3-afe83a0a14e5"],
Cell[67624, 1555, 515, 11, 52, "Message",ExpressionUUID->"6041ecab-c735-4488-903f-408d4eea8215"],
Cell[68142, 1568, 183, 3, 75, "Output",ExpressionUUID->"efdb288b-5a24-4895-a775-e2d089441cd3"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[68374, 1577, 159, 3, 88, "Subsection",ExpressionUUID->"eae6746d-fd2c-4383-b424-0bf4641822a0"],
Cell[68536, 1582, 166, 3, 45, "Item",ExpressionUUID->"6e3158c8-35da-4fe9-9ffb-8a4dad00545e"],
Cell[CellGroupData[{
Cell[68727, 1589, 231, 4, 56, "Code",ExpressionUUID->"96e565d2-f6af-401b-a437-c9482ec233f6"],
Cell[68961, 1595, 177, 4, 41, "Output",ExpressionUUID->"10e73d09-7729-4b22-aa2c-f3f1e508aa18"]
}, Closed]],
Cell[69153, 1602, 234, 4, 38, "Item",ExpressionUUID->"47756be2-58dd-4d41-b532-5e9d4f5e9b80"],
Cell[CellGroupData[{
Cell[69412, 1610, 532, 11, 56, "Code",ExpressionUUID->"0d34897e-1cdc-4da5-b896-16deffe3292c"],
Cell[69947, 1623, 527, 10, 41, "Output",ExpressionUUID->"0dcfc2ab-ccf2-466b-9978-202f74a5070b"]
}, Closed]],
Cell[70489, 1636, 329, 5, 38, "Item",ExpressionUUID->"d4da7382-9cf2-451d-8295-825c01cedfc0"],
Cell[CellGroupData[{
Cell[70843, 1645, 272, 6, 162, "Code",ExpressionUUID->"2e04200c-f026-4901-9269-c7a2e4d853e2"],
Cell[71118, 1653, 201, 4, 41, "Output",ExpressionUUID->"6b49c304-4985-46e1-a5f7-93b9340a9ee4"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[71368, 1663, 161, 3, 88, "Subsection",ExpressionUUID->"040de42c-618f-466f-a6f7-ca3632a2b6f7"],
Cell[CellGroupData[{
Cell[71554, 1670, 196, 3, 45, "Item",ExpressionUUID->"be2d143a-b0ba-43c4-a123-29f40576a4e5"],
Cell[71753, 1675, 154, 3, 43, "Subitem",ExpressionUUID->"035a22bb-242f-4e88-982d-639fb6412a62"]
}, Closed]],
Cell[CellGroupData[{
Cell[71944, 1683, 627, 15, 109, "Code",ExpressionUUID->"c71c0927-8638-42d4-847a-c8cd3059e920"],
Cell[72574, 1700, 346, 8, 63, "Output",ExpressionUUID->"4adbefc2-bbac-40c0-be5f-3da78b7c34be"],
Cell[72923, 1710, 214, 5, 41, "Output",ExpressionUUID->"30988626-a6ba-4183-b988-ee04ad09a82e"],
Cell[73140, 1717, 229, 5, 41, "Output",ExpressionUUID->"16374303-cb46-4db8-b3b5-d7aaf98b7d7e"],
Cell[73372, 1724, 243, 6, 41, "Output",ExpressionUUID->"68d0510b-83ac-47a3-9741-c0e04b754677"]
}, Closed]],
Cell[73630, 1733, 154, 3, 36, "Subitem",ExpressionUUID->"30fe82ef-00b8-4897-85d8-452de7b08b7f"],
Cell[CellGroupData[{
Cell[73809, 1740, 380, 9, 78, "Code",ExpressionUUID->"eb0ceeaa-3ff0-4b9a-bc9b-7fc7ff9c0111"],
Cell[74192, 1751, 360, 8, 63, "Output",ExpressionUUID->"ca074534-7d5d-44cc-aeb2-fe6d9a283582"],
Cell[74555, 1761, 214, 5, 41, "Output",ExpressionUUID->"35343df8-4c0e-4f3b-b326-05ac5453b1dd"]
}, Closed]],
Cell[74784, 1769, 133, 3, 36, "Subitem",ExpressionUUID->"181ae264-dfca-4163-b105-c6e382d17561"],
Cell[74920, 1774, 491, 12, 78, "Code",ExpressionUUID->"b3f5275a-861c-4494-8243-6d2e758c34ab"],
Cell[75414, 1788, 217, 4, 31, "SubsubitemParagraph",ExpressionUUID->"0b6bdec9-29c5-44e2-9afa-fbc90249760c"]
}, Closed]],
Cell[CellGroupData[{
Cell[75668, 1797, 187, 3, 88, "Subsection",ExpressionUUID->"ac94080c-6655-4c4b-b58e-d353d404f0e0"],
Cell[75858, 1802, 260, 4, 45, "Text",ExpressionUUID->"4ff4c635-942a-47e2-b49c-8ab3e51d76d5"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[76179, 1813, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"823b1cd1-316c-44e6-8bf2-80ea16917425",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[76326, 1819, 204, 3, 171, "Section",ExpressionUUID->"c6424283-156a-4fd0-a9f2-60c93f6190a5"],
Cell[CellGroupData[{
Cell[76555, 1826, 192, 3, 118, "Subsection",ExpressionUUID->"d18597b4-3e23-4ba1-b756-4aab2c462b9e"],
Cell[76750, 1831, 188, 3, 88, "Item",ExpressionUUID->"76154bca-d8f6-4704-afa9-436a30f5abad"],
Cell[CellGroupData[{
Cell[76963, 1838, 931, 27, 137, "Code",ExpressionUUID->"3a1222aa-d892-4508-8bf2-549be8909b75"],
Cell[77897, 1867, 460, 13, 75, "Output",ExpressionUUID->"762681bf-9664-4bb9-a897-916f197818b5"],
Cell[78360, 1882, 458, 13, 75, "Output",ExpressionUUID->"6db80c69-5edf-41a9-96e6-78cd6c44223d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78855, 1900, 255, 4, 77, "ItemParagraph",ExpressionUUID->"58bee073-9951-4b6c-8197-8bf50b92ebae"],
Cell[79113, 1906, 255, 4, 77, "ItemParagraph",ExpressionUUID->"f141619c-ea1d-4aed-95f1-79f0483b6698"],
Cell[79371, 1912, 226, 4, 77, "ItemParagraph",ExpressionUUID->"45103f51-da07-4b87-a26d-ff6df9f66c4a"],
Cell[79600, 1918, 208, 4, 77, "ItemParagraph",ExpressionUUID->"b29ecc41-9a15-46fe-b51e-abddcd513e54"],
Cell[79811, 1924, 208, 4, 77, "ItemParagraph",ExpressionUUID->"dadd3526-7b20-4e6e-9b05-e36e226b9c5b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80056, 1933, 608, 17, 82, "Code",ExpressionUUID->"ffd57b41-a7a2-42fa-9284-4196842f9322"],
Cell[80667, 1952, 481, 13, 81, "Output",ExpressionUUID->"6bb31e93-3fd0-4954-bbd5-f7a6d18396f1"]
}, Open  ]],
Cell[81163, 1968, 192, 3, 88, "Item",ExpressionUUID->"eac43cf4-253f-415d-8dc0-13227d4cda31"],
Cell[CellGroupData[{
Cell[81380, 1975, 1312, 40, 245, "Code",ExpressionUUID->"60a16b7a-c816-4f45-a71b-557bc6aed860"],
Cell[82695, 2017, 508, 14, 41, "Output",ExpressionUUID->"8e79b8d5-2c36-43bf-a335-6516ffa1076c"],
Cell[83206, 2033, 440, 12, 41, "Output",ExpressionUUID->"6f179960-51fc-4e9a-810d-b61bc44d31a9"]
}, Closed]],
Cell[83661, 2048, 197, 3, 78, "Item",ExpressionUUID->"8448dfdb-0078-47ab-81f8-ac92b4be5f99"],
Cell[83861, 2053, 366, 8, 88, "Text",ExpressionUUID->"ba519a55-c903-4a08-843d-8a9df522a560"]
}, Closed]],
Cell[CellGroupData[{
Cell[84264, 2066, 283, 6, 88, "Subsection",ExpressionUUID->"b2e4c751-349d-480c-8b2d-e946454a7490"],
Cell[CellGroupData[{
Cell[84572, 2076, 180, 2, 88, "Item",ExpressionUUID->"10c54f9f-4f44-4307-b1de-fcfe2f3b62b8"],
Cell[84755, 2080, 200, 3, 77, "ItemParagraph",ExpressionUUID->"1b0d04f1-1156-4915-b5e6-fb4057aea227"],
Cell[84958, 2085, 220, 4, 77, "ItemParagraph",ExpressionUUID->"e118a41a-865c-432b-b3b1-9ef0c9430951"],
Cell[85181, 2091, 196, 3, 77, "ItemParagraph",ExpressionUUID->"3b6e8428-c64a-47b8-8c86-dc2dc0f38079"],
Cell[85380, 2096, 217, 4, 77, "ItemParagraph",ExpressionUUID->"2a4c3075-8be9-4123-810c-2bff1b13473f"],
Cell[85600, 2102, 262, 5, 77, "ItemParagraph",ExpressionUUID->"d0c9a118-f17e-4bf9-98e0-0f97b129e12b"],
Cell[85865, 2109, 352, 6, 77, "ItemParagraph",ExpressionUUID->"e2ff7f4f-6202-4148-ab94-2f7342e426b9"],
Cell[86220, 2117, 335, 5, 77, "ItemParagraph",ExpressionUUID->"6b9a92d7-19ae-4b8b-93c9-df77c1529e51"]
}, Open  ]],
Cell[86570, 2125, 219, 4, 84, "Subsubsection",ExpressionUUID->"4a6cdc44-b6b3-4961-a725-5a9c16a33791"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[86850, 2136, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"ce38ad21-4134-4ab8-b417-bb9d85d5cfa0",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[86997, 2142, 157, 3, 171, "Section",ExpressionUUID->"9387f4cc-8e79-4024-87c4-8d5a6cdf0358"],
Cell[CellGroupData[{
Cell[87179, 2149, 183, 3, 118, "Subsection",ExpressionUUID->"4a54b97e-1979-4eae-b9e6-696d37b5fde3"],
Cell[CellGroupData[{
Cell[87387, 2156, 319, 5, 88, "Item",ExpressionUUID->"2852c942-70e8-4a37-8419-274b1f4fbcc3"],
Cell[87709, 2163, 305, 5, 88, "Item",ExpressionUUID->"61f0a500-0928-4d7c-8f6f-1c79ced0f89f"],
Cell[88017, 2170, 311, 5, 88, "Item",ExpressionUUID->"e2b56826-54d0-4d5b-956a-7fa36036f88e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[88377, 2181, 187, 3, 88, "Subsection",ExpressionUUID->"10fee7f8-1a97-48c8-90fb-1b20508165e0"],
Cell[CellGroupData[{
Cell[88589, 2188, 313, 5, 149, "Item",ExpressionUUID->"d06bdbac-9422-413a-bb8f-0ed602e063d2"],
Cell[88905, 2195, 513, 9, 210, "Item",ExpressionUUID->"92f77ffa-f859-44ac-a66f-dfed86265f81"],
Cell[89421, 2206, 216, 4, 88, "Item",ExpressionUUID->"de9a515e-1aab-491e-9b35-2e8d31d027f8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[89686, 2216, 222, 4, 88, "Subsection",ExpressionUUID->"14766436-baf0-4517-8d8c-651039dde302"],
Cell[CellGroupData[{
Cell[89933, 2224, 258, 4, 77, "ItemParagraph",ExpressionUUID->"6c173be1-612b-4a9a-98b2-7c6c63230c18"],
Cell[90194, 2230, 273, 7, 77, "ItemParagraph",ExpressionUUID->"a7e7c4e9-8314-4d9f-a3d0-967024d884e6"],
Cell[90470, 2239, 268, 4, 77, "ItemParagraph",ExpressionUUID->"ca51a923-b7f8-4160-a3ba-0d3f8eba723c"],
Cell[90741, 2245, 235, 4, 77, "ItemParagraph",ExpressionUUID->"2901d1d1-999d-479a-b1aa-46f6c2568d65"],
Cell[90979, 2251, 253, 6, 77, "ItemParagraph",ExpressionUUID->"f201baee-41dc-42f6-8bb2-969622b1bab5"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[91281, 2263, 240, 4, 88, "Subsection",ExpressionUUID->"462de189-e0ee-4462-a7cc-af006fd54700"],
Cell[CellGroupData[{
Cell[91546, 2271, 187, 3, 77, "ItemParagraph",ExpressionUUID->"a4e8a09d-e446-45cc-9bd1-e80a724eab54"],
Cell[91736, 2276, 312, 5, 77, "ItemParagraph",ExpressionUUID->"bd7b2650-110c-499e-8dec-b5aee51d5bb5"],
Cell[92051, 2283, 254, 4, 77, "ItemParagraph",ExpressionUUID->"6b3abbf6-a3dc-4000-8aa4-3a3a95c6140d"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[92378, 2295, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"7e3fd377-8fe3-4278-8343-7ce8cfc70e0a",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[92525, 2301, 170, 3, 101, "Section",ExpressionUUID->"e62c40ee-86ae-44fd-9a25-5167b43e3f41"],
Cell[92698, 2306, 215, 4, 64, "Subsection",ExpressionUUID->"e78c577c-2ea7-40ae-b749-bd4ec2405d3b"],
Cell[92916, 2312, 339, 7, 71, "Subsection",ExpressionUUID->"1b32a0f3-1f40-483c-b9db-10e8627da50c"],
Cell[CellGroupData[{
Cell[93280, 2323, 460, 9, 71, "Subsection",ExpressionUUID->"221b0320-158a-4170-88d1-c90f2994f673"],
Cell[93743, 2334, 152, 3, 41, "Input",ExpressionUUID->"2e16c9ee-c0bd-4e24-a06e-9f260b0d5891"]
}, Open  ]]
}, Open  ]],
Cell[93922, 2341, 435, 12, 263, "Chapter",ExpressionUUID->"6eade657-2380-4b29-aed8-fa64798e88b2"]
}, Open  ]]
}
]
*)

